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by Phelps Gates 




Now a high-level, scientific programming language for the home computer that doesn't cost $200 or $300. The power 
of this language is in its strong mathematical operations, especially with regard to matrices and vectors. Programs re- 
quiring matrix multiplication or other matrix problem solving that would require hours of programming time in BASIC 
are solved quickly and with minimal effort in APL. 

To aid in learning APL, lessons are included on the disk. Starting from the basics, you are brought step by step 
through the various programming techniques involved with APL. These lessons act as a tutor which will have you "talk- 
ing APL" in no time. Also available is the book, "APL: An Interactive Approach," which reinforces many of the examples 
given in the lessons and provides additional insight into APL programming. 

FEATURES 

APL-80 on disk contains the following features: )SAVE and )LOAD workspace on disk; )COPY other workspaces into 
current ones; Return to DOS for directory or commands without losing your workspace; Send output to lineprinter; Five 
workspaces of lessons included; Sequential and random files; 15 digit precision; Monadic and dyadic transposition; 
Easy editing within FUNCTION lines; Latent expression (FUNCTION can "come up running"when loaded); Tracing of 
function execution; Real-time clock; User-control of random link; Workspace is 25587 bytes (in 48K machine); Arrays 
may have up to 63 dimensions. 

COMMANDS APL-80 

APL-80 supports the following commands; Absolute value, add, and, assign, branch, catenate, ceiling, chr$/asc, cir- 
cular, combinatorial, comment, compress, deal, decode, divide, drop, encode, equal, expand, exponential, factorial, 
floor, format, grade down, grade up, greater, greater/equal, index generator, indexing, index of, inner product, label, 
less, less/equal, logarithm, maximum, member, minimum, multiply, nand, negate, nor, not, not equal, or, outer product, 
peek, poke, quad, quote quad, random, ravel, reciprocal, reduction, reshape, residue, reverse, rotate, scan, shape, sign, 
system, subtract, take, transposition. 

SPECIFICATIONS 

Minimum system requirements: 32K disk system (48K recommended) includes APL-80, Five workshapes of lessons, 
instruction manual. 

Price $39.95 on disk 

Reduced feature: 16K Level II tape version, no lessons. 
Transpositions, format, and inner product not implemented. Reduced domain for some functions, 6 digit accuracy. 

Price $14.95 on cassette 

APL: An Interactive Approach 

Price $16.95 ($3.00 shipping charge) 



LIMITATIONS 

Due to the absence of the special APL character set on the TRS-SOTM, APL-80 uses shifted letters to represent the various APL characters. 

In addition to the keyboard iimitations, lamination, domino, and matrix inverse are not implemented but can be derived with user-defined functions. 

Multiple specifications must be split into two statements unless the left-hand assignment is to a quad. This also applies to implied multiple specifications. 

Reduction and reshape (p) are not permitted for empty arguments; the argument of add/drop may not be scalar; empty indices are not permitted. 

A quad (q) can't be typed in response to a quad (nor can the name of a function which itself gets input from a quad). Quote-quad (m) Is permitted. 

No more than 32 user functions can be defined in a single workspace and a function may not contain more than 255 lines. 

A comment (c) must occupy a separate line: a comment can't follow a function statement on the same line. 

In the tape version, arrays are limited to five (5) dimensions. 
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NEWDOS/80 

Brand new from Apparat, their most powerful DOS ever. EVERYTHING in NEWDOS and 
NEWDOS+ and more; Variable length records (up to 4095 bytes), mix or match your disk drives: 35, 
40 and 77 track drives can be used in any combination — even with 8 inch drives, new security 
boot-up sequence makes it impossible for the unauthorized to BREAK or LIST. "DOS READY" and 
"READY" need never appear, enhanced RENUf^BER allows relocation of subroutines, powerful 
program CHAINing, option to PRINT on display and printer simultaneously, execute DOS commands 
— from DOS — without disturbing your resident BASIC program. Put the "DOS of the Eighties" to 
work for you. On disk, with all documentation $149.95 

NEWDOS 

NEWDOS corrects over 70 errors and omissions in TRSDOS 2.1 and disk BASIC, yet they are 
completely compatible! Programs SAVEd under either system need no modification to work with 
the other. Like going from Level I to Level II: more power, convenience and speed. Use all DOS 
commands (DIR, FREE, RENAME, COPY etc.) from BASIC, AUTO LOAD and RUN a BASIC 
program from power-up, produce variable and constant cross reference tables, OPEN "E" to add to 
the end of a sequential file, send whatever is on the screen to your printer, even in DOS (great for 
DIR), renumber BASIC programs, and more . . . Fully documented; available on disk for only 

35-Track version $49.95 

40-Track version #1 1 -05 $55.00 

NEWDOS + 

ALL of the above PLUS: Editor/Assembler for disk, Z-80 Disassembler, LMOFFSET to relocate 
and save SYSTEM tapes to disk, Level I BASIC language with disk I/O, DIRCHECK to check and 
LIST disk directory, SUPERZAP-display/print/modify any location in RAM or on disk (worth the 
price of the entire package when you resurrect that accidentally KILLed file!). NEWDOS+ on disk 

with documentation. 35 Track version $99.95 

40-Track version #1 1-07 $1 10.00 
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ANTI-BALLISTIC MISSILE GAME 

Save the East Coast of the U.S. from nuclear attack! As long as a single city is intact, you are 
still in the game — but the enemy will throw more and more missiles at you as time passes. 
And more of them will be MIRVs — missiles that throw off nuclear warheads in flight to hit 

cities far away from their targets. 

You must destroy the enemy missiles in flight with your ABM's (anti-ballistic missiles) fired 

from the bases between your cities. Two bases — one between New York and Philadelphia, 

and another between Baltimore and Washington — fire the new 5-kiloton Ajax missile. The 

other three still fire the old 1-kiloton Sprint missile. Your bases are "hardened" and can repair 

themselves to some extent after a nuclear strike — but your cities are not. 

When all cities have been destroyed, you will be scored. Knock out as many enemy missiles 

with as few ABM's as possible to get the highest score. 

32K, Apple Disk, Applesoft $24.95 
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ULSE 

THE LEADER IN QUALITY SOFTWARE 



Put IRV 
on your 

programming 

staff* 

W ^Vl I I ■ from Programmer's Guild 

IRV Is faster than Level II BASIC! More powerful than a speed typist! Able to leap 

ten subroutines at a single bound! 

Input shorthand — one keystroke can enter a whole line! The feature you liked In 

Level III BASIC and Tshort, now with all keys user programmable. You can even 

turn your cassette player on or off with a single keystroke. 

Relocate a line by simply editing the line number — renumber lines 

Individually. 

Video Editor allows cursor oriented editing of your programs. Just move the 

flashing cursor to the line to be edited and type the corrections, insert, 

or delete. 
IRV comes with manual and auto-repeat on every key. 

16K, S-80 Cassette, Machine Language $24.95 

16K, S-80 Disk, Machine Language $29.95 
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by Dave Albert 

I am something of an innocent, 
a total novice wandering lost amid 
the twisted paths of binary logic 
and hexadecimal perception. 
Mention machine code to me and I 
envision a computer pounding 
away at a telegraph key, with a 
room full of enemy computers 
trying their hardest to intercept the 
message and crack the code... At 
first, I thought Green Screen was 
the defensive line of the Seattle 
Seahawks, now I have one of my 
own at home (a screen, not a 
linebacker). 

Of course, that means I must 
have a computer at home. I do. I, 
too, have been seduced by the 
almighty pixel, entranced by the 
marvels of CPUs and the floppy 
diskette. Ostensibly I purchased 
the little sucker for the word 
processing capabihties, complete 
with requisite lineprinter and disk 
drive. But I've recently discovered 
that there is one member of my 
household that enjoys the 
computer far more than I do: 
Sally, my kitten. 

As far as Sally is concerned, my 
S-80 is (pardon the expression) the 
bee's knees. There are, of course, 
fringe benefits as far as she can 
tell, such as the paper roll holder 
on the printer, which is ideal for 
scratching her head, and the 
ribbon cables which she bats about 
with reckless abandon. But her 
true throb, her main squeeze, is 
the keyboard itself. She looks 
upon the keyboard as a kitty 
obstacle course, not unlike 
running through a field of old 
tires. The monitor screen is the 
perfect wall, challenging to climb 
and great for developing her 
pectorals. The flashing cursor 
inherent to "Super Script" (the 
word processor I currently prefer) 
is a source of endless facination, 
second only to her guerrilla 
activities. 

The guerrilla activities tend less 
to subversion than to outright 
sabotage. She has mastered the art 
of bombing a file just prior to my 
saving it. This is usually 
accomplished by waiting until she 
sees me getting ready to hit the 
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BREAK key, and then, pouncing 
on the keyboard with paws 
outstretched to land on the "@" 
and "D" and "C" keys 
simultaneously. When the "Delete 
para Y or N?" message appears, a 
leisurely stretch and yet another 
paw lands on the "Y" key. Then, 
she makes tracks while I look for a 
cleaver. 

If that doesn't work, she rubs 
against my leg in a seeming show 
of affection until she has garnered 
enough static electricity to crunch 
the entire disk. Mata Hari could 
have taken lessons from Sally. 
Her favorite tactic, however, is 
pretty straightforward. She just 
dances on the keys when I'm not 
looking. The result is that my 
articles and letters come out with 
paragrapsh that run like this: 

m,adnsjfhdgbdvb..unklejvio- 
s;yfhwdbfenksbyjshvosdhvkjds- 
bvsbvkjxhv 

vjbkbvJBhv;/cshvjdwbfgkdhfgkd 
hfjkdhf dsjhjdshdb. 

She doesn't always manage to 
end them with a period, but she's 
learning. 

There is a serious side to this 
anecdote: Microcomputers can be 
a lot of things to a lot of people. 
And that is both good and bad, as 
are most things in this life. Would 
that life were simpler and things 
were one or the other, good OR 
bad, but such is not the case. For 
some, the micro is naught but a 
wonderful toy, something to play 
games on. For others, it is a useful 
tool to store business records on, 
or to edit and write with. To 
others still, the micro is an 
obsession, be it from a favorable 
perspective or from one of hatred 
and fear. I must confess to having 
subscribed to the latter dynamic 
for some time, but I am 
overcoming that. Nevertheless, like 
my predecessor here at SoftSide, 
Mark Pelczarski, I still have some 
doubts and misgivings. 

Unlike Mark, my doubting stems 
from the what I see as compression 
and alteration of language. It is a 
similar fear to the one expressed 
by critics of television when that 
medium first emerged. The 

continued to pago 72 
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BASIC Compiler, with trs-so basic 

Compiler, your Level II BASIC programs will run at 
record speeds! Compiled programs execute an 
average of 3-10 times faster thian programs run 
under Level II. Make extensive use of integer 
operations, and get speeds 20-30 times faster 
than the interpreter. 

Best of all, BASIC Compiler does it with BASIC, 
the language you already know. By compiling 
the same source code that your current BASIC 
interprets, BASIC Compiler adds speed with a 
minimum of effort. 

And you get more BASIC features to program 
with, since features of Microsoft's Version 5.0 
BASIC Interpreter are included in the package. 
Features like the WHILE . . .WEND statement, long 
variable names, variable length records, and the 
CALL statement make programming easier An 
exclusive BASIC Compiler feature lets you call 
FORTRAN and machine language suloroutines 
much more easily than in Level II. 

. Simply type in and debug your program as 
usual, using the BASIC interpreter Then enter a 
command line telling the computer what to 
compile and what options to use. 

Voila! Highly optimized, Z-80 machine code 
that your computer executes in a flash! Run it now 
or save it for later Your compiled program can be 
saved on disk for direct execution every time. 

Wont to market your programs? Compiled ver- 
sions are ideal for distribution.' You distribute only 
the object code, not the source, so your genius 
stays fully protected. 

BASIC Compiler runs on your 
TRS-80 Model I with 48K and disk 
drive. The package includes 
BASIC Compiler, linking loader 
and BASIC library with complete 
documentation. $195.00. 

'Microsoft royalty information for 
the sale of programs compiled 
with BASIC Compiler is available 
from Microsoft. 
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muMfiXH Symbolic Math System 

expands your TRS-80 beyond the limits of numeri- 
cal evaluation to a much higher level of math 
sophistication. 

Symbolic mathematics is muMATH's power For 
the first time, algebra, trigonometry, calculus, 
integration, differentiation and more can be per- 
formed on a system smaller than an IBM 370. And 
in a fraction of the time you could do them 
manually. 

Yet for all its power, muMATH is simple to use. 
To perform a differentiation you could enter: 
?DIF(A'X T 3 -t- SIN(XT 21,X); 

In almost no time, the computer would reply 
with: @2'X'COS(X T 2) + 3'A'X ! 2. 

Or to add fractions: ?1/3 + 5/6 -I- 2/5 + 3/7; 
The instantaneous answer: 419/210. 
Or to perform a more difficult trigonometric 
expansion you enter: SIN(2'Y)'(4'COS(X]T3-COS 
(3'X] -I- SIN (Y)'(COS(X-(-Y-l-#PI) - COS(X-Y)]; 

Just a few seconds later the computer replies: 
@4-SIN(Y]'COS(X)'COS(Y]. 

muMATH has virtually infinite precision with full 
accuracy up to 611 digits. 

If you use math, you'll find countless ways to save 
time and effort with muMATH. It's a professional 
tool for engineers and scientists. A learning tool 
for students at any level from algebra to calculus. 
And if you want to expand your capabilities 
even beyond the standard muMATH, the option is 
open. muSIMP, the programming language in 
which muMATH is written, is included in the muMATH 
package. A superset of the lan- 
guage LISP, muSIMP is designed 
especially for interactive symbolic 
mathematics and other artificial 
intelligence applications. 

muMATH and muSIMP were 

written by The Soft Warehouse, 

Honolulu, Hawaii. Priced at $74.95, 

the package includes muMATH, 

muSIMP and a complete manual. 

It requires a Model I TRS-80 with 

32K and single disk. muMATH 

for the Apple II Computer will 

be available later this year 
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Dear SoftSide: 

I'd like to take issue with those 
individuals who take satisfaction 
either in putting down other makes 
of computers than the one they 
bought, or in complaining that 
their magazine is being polluted by 
the inclusion of programs for other 
machines. Your rebuttal was 
excellent, but several additional 
points have occurred to me. It 
strikes me that the choice of a 
microcomputer is as subjective as 
one's choice of anything else, 
whether it be an automobile, an 
item of clothing, a kind of music 
to enjoy, or a brand of beer. The 
choice is based upon many 
considerations, not the least of 
which may have something to do 
with the individual's level of 
sophistication, ability to pay, or 
perhaps the ability to discriminate 
their real needs. To make a snide 
remark like "TRaSh-80" is to 
demonstrate one's ignorance of the 
contribution to the expansion of 
(computer) consciousness that the 
S-80 and other "no-frill" 
computers have made. 

As it is, I have not begun to 
exploit the computing power of my 
"TReaSure-80," computing power 
I couldn't have bought for $50,000 
ten years ago. So if you need (or 
prefer) chrome, racing stripes, 
colors, whistles, that's fine — enjoy 
your investment. Just have a little 
respect for the one who 
prefers VWs. And instead of 
casting slurs, generate some good 
programs for SoftSide. 

Sincerely yours, 
Robert A. Benedict 
Dear SoftSide: 

A friend of mine gave me a copy 
of your magazine, I found it very 
good. At school we have two S-80 
computers, for one of them we 
have a disk drive which was 
defective when we got it. In the 
magazine that I have are a couple 
of articles that use sound with the 
computer, and I was wondering if 
there is any way to add sound to 
the computer without buying some 
kind of synthesizer. 

Sincerely yours, 
Eric Bierstedt 
Platteville, WI 
6 



Editors Reply: 

Eric, all that is required to get great 
sound effects is a small amplifier such 
as that sold by Radio Shack for about 
SI 2.00. 

Dear SoftSide: 

Congratulations on the "NEW" 
SoftSide! It promises to be one of 
the better sources of 
microcomputer information. 

1 am, however, also very sad to 
see the mixing of articles and 
programs for the three computers 
in the same publication. 1 have 
many of the same feelings 
expressed by Brian Thompson in 
the October issue. 

The Apple has only been in my 
life about six months. I have 
subscribed to every publication I 
could find that might have a 
bearing on uses for my Apple. 
Most of the subscriptions will not 
be renewed. I am very tired of 
seeing an interesting article or 
program in a magazine, only to 
find out it is relative to some other 
computer. Some of that is 
acceptable, but there is so much 
time reading about other systems. 
Where articles are intermixed it is 
often difficult to quickly determine 
what system is being discussed. 

SoftSide: Apple was so very 
enjoyable because you knew that 
every article would be about a 
subject applicable to Apple. 
Realizing the monetary advantages 
to the publisher of a single 
publication that includes the 
Apple, S-80 and Atari. I would like 
to make the following suggestion. 
Divide the SoftSide into four 
sections. 

FIRST SECTION - Articles and 
advertising that would apply to more 
than one of the three computers. 
SECOND SECTION - Apple 
articles and advertising. 
THIRD SECTION - S-80 articles 
and advertising. 

FOURTH SECTION - Atari articles 
and advertising. 

It would give everyone most of 
the benefits of both worlds. 

Yours Truly, 
Clyde C. Elsasser 
Junction City, OR 
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Dear SoftSide 

My compliments on an excellent 
magazine from its "slick" format to 
the outstanding software contained 
within — a bargain like this has 
been unheard of since the nickel 
cigar! 

As SoftSide is to software — so is 
the Atari 400 to hardware — an 
outstanding buy. Not all 
us"computerists" have an unlimited 
cash supply — yet I still wanted a 
machine with Hi-Res color 
graphics and sound. I have 
everything the 800 has (1 OK 
operating system etc.) except for 
the nice keyboard and only one 
memory expansion slot (Atari 
technicians told me a company 
already makes a 32K RAM Board 
for it — so I really don't lose in this 
respect). 

The keyboard really isn't as bad 
as it looks— each key has a raised 
border so you can feel it-plus audio 
feedback. 

Are there any Atari users group 
yet? If yes, let's hear from you, if 
not let's start one! 

As a novice programmer, I really 
appreciate the program comments 
so I can figure out just what the 
author was trying to do. 

1 would like to see more of Tim 
Hays and maybe an intro to 
Machine Langage. 

Sincerely, 

Everett P. Rantares 

Dear SoftSide; 

I am writing because I have 
several comments on your 
publication and some of the 
programs that you have published. 

On the "Dr. Livingston" 
program: I had a hard time getting 
it to run. I have a 16K, Leve\ 11 
(with the new ROM) and I kept 
running out of memory. To solve 
this problem I had to reduce the 
CLEAR statement in Hne 50 to 
about 330 and also go through the 
program and take out spaces and 
shorten some of the words, ie., I 
use SWAMI instead of S W A M 
I. I would like to know if anyone 
else had the same problem. 

On "Monster Maze" with Sound 
on line 98 what goes in place of the 
exclamation point? 



Now for some comments on 
your publication. I think its great. 
I was sorry to read that some 
people don't like your new format 
(having S-80, Atari etc. in the same 
magazine) however I feel that 
anyone who owns or uses a home 
computer has an eye for the future 
and a mind wanting to learn. What 
better way to learn more about our 
friend the computer but to see how 
the other side works? Maybe if you 
split your magazine into sections 
ie. pages 1-15 for S-80 and 16-30 for 
Atari etc., it would help. 

Well thanks again for a great 
publication that I'm sure, will get 
better. 

Sincerely, 

Robert D. Arrington 

Chatham, ILL 

Editor's Reply: 

Line 98 in "Monster Maze" should 
have a greater than sign in place of the 
exclamation point. 

Dear SoftSide: 

I must admit to having a 
love/ hate relationship with 
SoftSide. I love the articles and 
programs and, as an Atari owner, I 
appreciate your terrific Atari 
coverage. But, oh, those mistakes 
in the programs that drive me 
crazy after spending hours to enter 
programs!! Your November issue is 
typical. "Meteor Storm" is 
interesting, but doesn't seem to do 
things quite right; "Boing!" is okay 
far as it goes, but you forgot to 
include part of the program; and 
"Trench," after giving a warning to 
be careful in entering the very 
lengthy lines, goes right ahead and 
has one that is longer than the 120 
characters that the Atari will 
accept (line 890). 

Well, I think I have a good 
solution to your problem (other 
than the obvious one of better 
proof reading by your staff). Why 
don't you get a couple of owners of 
each computer covered who are 
subscribers to proofread the 
programs by trying to enter them 
and run them prior to publication. 
As an incentive, you could give 
them a free subscription (including 
a working copy on cassette or disk) 
when the correct programs were 
published. In this way, all the other 
subscribers would be more assured 
of getting error free programs and 
everyone would be a lot happier!! 
Think about it. 

Yours truly, 
Richard Kushner 
High Bridge, NJ 



Editor's Reply: 

The programs listed in the magazine 
are listings dumped directly to a 
lineprinter from a working version of 
the program running on a computer. 
While we cannot guarantee that every 
program is free of bugs (some 
programs are so complex that is is 
impossible to verify every subroutine), 
we can assure you that no 
typographical errors are getting past 
proofreaders simply because the 
programs are not TYPED in! 

Dear SoftSide, 

I am delighted about Scott 
Adams's new column in SoftSide. 
The debounce patch will be much 
appreciated. 

My main frustration with the 
adventures is saving and loading 
games to and from cassette. I 
don't mind hanging from flagpoles 
or jumping out of space ships, but 
wrestling with a cassette player at 
2:00 AM is too much to ask of 
even the most ardent adventurer. I 
have transferred my adventure 
programs to disk, so loading the 
programs is a breeze. Is it possible 
to patch them so that games in 
progress could be saved to disk 
instead of cassette? 

I realize that these are large 
programs and there may not be 
enough room in 16K to implement 
such a change, but there are plenty 
of disk users with 48K. Besides, 
we've been trained to expect 
miracles from our adventures. 
Maybe, if I say YOHO . . . 

Sincerely, 
David A Kater 
La Mesa, CA 
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INPUT POLICY 

SoftSide Magazine welcomes 
your comments and thoughts on 
both the magazine and the field of 
microcomputing. We try to publish 
as many of our readers' letters 
each issue as we can. 

For the sake of clarity and 
legibility, all letters should be 
typewritten and double-spaced. 
Send your letters to: 

SoftSide Publications, 

Input 

6 South St., 

Milford, N.H. 03055 

We reserve the right to edit any 

letters prior to publication. 



OUTGOING 
MAIL 



It seems in these times that 
things are changing faster than 
ever before. Five years ago, very 
few people had home computers. 
Can you remember anyone who 
had a computer in 1975? But now 
home computers are becoming 
commonplace due primarily to the 
lower cost of manufacturing. I'll 
bet that everyone reading this 
column knows at least one person 
who owns a home computer. 

SoftSide, along with the entire 
industry has grown and undergone 
many changes since its birth in the 
basement of our publisher's home. 
Those of you who have been 
subscribing to the magazine for the 
last year have seen SoftSide change 
from a digest of ready to run 
programs for your S-80 to a full 
sized color magazine supporting 
the world's three most popular 
microcomputers with well 
documented software. 

But the changes haven't stopped 
yet. This month we have added 
another regular column. "The 
Hardware Corner" is a new 
column designed to give readers a 
place to have their hardware 
questions answered. 

Next month we'll be bringing 
you "Dominoes" for the S-80, 
Atari, and Apple computers. 

'Til next month . . . 



OOPS ! 



Due to an unfortunate 
eleventh hour shuffling of 
pages, we erroneously listed the 
"Christmas Card" program in 
the December 1980 SoftSide as 
beginning on page 48. Our own 
Christmas card began on that 
page. The program by Fred 
Pence started on Page 20. Sorry 
about that. 

The Editors 
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The Programmers Guild 



IRV 

Put IRV on your programming staff Input shorthand — 
one keystroke can enter a whole line! The feature you liked 
in Level III BASIC and Tshort, now with all keys user- 
programmable You can even turn your cassette player on or 
off with a single keystroke 

Relocate a line by simply editing the line number — 
renumber lines individually. Video editor allows cursor- 
oriented editing of your programs. Just move the flashing cur- 
sor to the line to be edited and type the corrections, insert or 
delete 

IRV comes with manual and auto-repeat on every key 

16K S-80 Cassette, Machine Language $24 95 

16K S-80 Disk, Machine Language $29 95 
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SYBEX 





INTRODUCTION TO PASCAL 

INTRODUCTION TO PASCAL (INCLUDING UCSD 
PASCAL), a step-by-step guide to UCSD and STANDARD 
PASCALS, is written as a tutorial for beginners — even those 
with no programming experience — yet includes complex 
concepts for experienced programmers. Both will find the 
book a useful reference tool because of its logical format and 
extensive appendices. 
$12.95 plus $1 



THE CP/M HANDBOOK WITH MP/M 

Control Program for Microprocessors, or CP/M, is an 
operating system — a program designed to let the user ex- 
ecute applications programs conveniently on the computer 
Most microcomputers used for business use the CP/M 
operating system 

The CP;M handbook WITH MP/M has been written for 
all users of the CP/M operating system. The book contains a 
comprehensive description of all CP/M facilities and 
resources; instructions for advanced operations; and com- 
plete discussions of all versions of CP/M up to and including 
2.2, CDOS and MP/M (Multiprogramming Control Program 
for Microprocessors, an operating system that allows several 
terminals to be used simultaneously). 

$13,95 plus $1 



MEW 
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6 South St .Milford, NH 03055 (603)673-5144 
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Originally published in 1978 as "An Introduction to Per- 
sonal and Business Computing", this widely acclaimed best 
seller has been completely revised, redesigned and expanded 
to meet the needs of a growing segment of the population 
becoming interested in small computers. The computer sec- 
tion has been totally rewritten and represents an up-to-date 
summary of equipment available in the marketplace. The 
business section has been expanded to show actual examples 
using a word processing system or a mailing list system. All 
other sections have been modified and updated to reflect the 
phenomenal growth and change in the microprocessing in- 
dustry in the two years since the book's first publication 
$7.95 plus $1 



THE PASCAL HANDBOOK 



A complete reference guide for every PASCAL instruction, 
function, operator or reserved word. Each symbol or word is 
described in its own section which includes syntax, definition 
and examples of its use. Covers virtually all versions of 
PASCAL Including Niklaus-Wirth, UCSD, PASCAL/M, CDC- 
PASCAL, Intel, Zilog, AMI, PASCAL/MT, Apple-PASCAL, 
North Star, ISO standard PASCAL, DECUS, Hewlett-Packard 
and more 

This book has been designed for ease of use and follows 
the format of a dictionary so the reader may quickly look up 
the meaning of any operator or function or check the valid 
constructs for statements, files or records. 
$14.95 plus $1 

Micro Accounting Systems 

GENERAL LEDGER 

Our ledger is very simple to use with up to 200 CL- 
Accounts; detailed transaction files; trial balance reports; 
and income statement and balance sheet. Its outstanding 
features include: auto loading; batch up to 200 debit and 
credit entries; and auto-edit for out-of-balance entries. 
32K S-80 Disk $159.00 
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ACCOUNTS RECEIVABLE 



Our present system will expand up to 1600 customers with 
auto-billing, mailing labels, and many reports to help improve 
cash flow. Special features include: ample room for descrip- 
tions; fast entry of charges and payments with discounting 
allowed; complete management report with true ageing; bill- 
mail code; discount percent; total charges; payments; last 
payment date and amount; total discount; and remaining 
balance. 
32K S-80 Disk $1 59 00 

CHECK REGI^ff 

Complete with reconciliation form and everything needed 
to keep an efficient checking account. Record checks written 
by hand, as well as writing checks for accounts payable. Will 
handle up to 600 checks monthly. Print a check register with 
all checks and deposits showing check number, payee memo, 
amount, and code. 
32K S-80 Disk $89.00 




ACCOUNTS PAYABLE 



Our system will handle up to 300 vendors with check 
writing, mailing labels, and many reports to help improve 
cash flow. Special features include, the same amount of in- 
formation as "Accounts Receivable," fast entry of charges 
and payments with discounting allowed, complete manage- 
ment report with true ageing, and overdue accounting 
listings. 
32K S-80 Disk $1 59.00 



General Ledger, Accounts Receivable, Check Register, and 

Accounts Payable. All four together at one low price. 

32K S-80 Disk $489 00 

BIG FIVE SOFTWARE 



COSMIC FIGHTER 



Enemy aliens are swarming everywhere! Just as you 
destroy one set, another set of faster and different ones ap- 
pear. Can you destroy them all before you run out of fuel? 
The game is over when all ships are exhausted. An extra ship 
is awarded at each 10,000 points. 

To move your ship right and left use either the arrow keys 
or the bracket keys. Use either the space bar or "F ' to fire 
missiles. If you dock with your space station you may fire 
multiple missiles by rapidly pressing the fire key 

To hear the sound, connect the large gray cassette AUX 
plug to an amplifier or into your recorder and listen through 
an earphone with record and play depressed. 
16K, S-80Cassette, Level II $14.95 
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ABM 

In this anti-baiiistic missile game you try to save the East 
Coast of the US. from nuclear attack. 

You must destroy the enemy missiles in flight with your 
ABMs (anti-ballistic missiles) fired from the bases between 
your cities. Two bases — one between New York and 
Philadelphia, and another between Baltimore and 
Washington — fire the new 5-kiloton Ajax missile. The other 
three still fire the old 1-kiloton Sprint missile Your bases are 
"hardened" and can repair themselves to some extent after a 
nuclear strike — but your cities are not 

"ABM" is designed to work with game paddles or joysticks 
32K Apple Disk, Applesoft $24.95 



UNiaUE SOFTWARE FOR THE UNICauE MINI 




THE PRISONER 



It is only occasionally that a whole new genre of game 
makes an appearance in the marketplace. Inspired by the 
highly acclaimed television series, this program puts you in 
the nighmarish 1984 world whose rulers seek to break you 
down by an extensive array of brainwashing techniques, 
while you are armed only with your intelligence, your sense 
of individuality and your wits. Will you escape to freedom, or 
forever remain THE PRISONER? 

Includes an extensive use of the Apple II sound and display 
capabilities, as well as natural language data entry. Play will 
extend over countless hours. 
48K Apple II or Apple II -I- Applesoft $29.95 
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INTRODUCING THE HOTTEST "FIX-IT" BOOK YET! 



^^TRS-80 DISK and 



O 



M 



MYSTERIES 



99 



by Harvard C. Pennington 



Here it is . . . THE complete "disk reference manual" (or your TRS-80! 
An excellent manual and tutor for beginners and professionals alike. 



Reveals all — in plain everyday English; How to recover lost files; 

hash codes; killed files; clobbered directories; bad parity errors; gat 

and hit errors; unreadable directories; direct statement in file errors; 
Electric Pencil errors and lost pencil files; and electrically or physical- 
ly damaged disks. Recover from a DOS error 22 in pencil, make BASIC 
programs unlistable, recover over-written files, read or edit any BASIC 
program with Electric Pencil, and remove product status. Tells how to 

use Superzap . . . and the list goes on and on. Large 8V2" x 11" easy- 
to-read format. Over 130 pages. Order Today! 

$22.95 plus $1 
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EXPAND YOUR 



COMPUTING 
CAPABILITIES 



ST80 SMART TERMINAL PACKAGE 

All four programs include the ability to use an unmodified TRS- 80 keyboard to produce RUB, ESC, and other control 
characters for time sharing, software control of the RS-232-C board, repeat key, bell, software support for the three most 
common upper/lower case hardware conversion, and line printer output. 

ST80*UC 

Preset parity, word length, and baud rate (regardless of switch settings on the RS-232-C board) for THE SOURCE, 
MICRONET, and FORUM 80, automatic testing of the RS-232-C board, and even spooling of prepared messages on tape 
directly into FORUM 80 using a basic program supplied as a line listing. 4K Level II cassette $24.95 

ST80* 

Reprogram your RS-232-C board from the keyboard, and run at different baud rates. Note: does not have auto testmg of the 
RS-232-C or tape spooling. 4K Level II cassette $49.95 

ST80*D 

Connection time clock, option of user-created translation tables for keyboard, gathering and pre-formatting data to be sent 
directly from disk to host computer, spooling of received files to disk or printer, editing of received files, and auto logon. Use it 
with VTOS 3.1, and get device-driven 1/0, job logging, and chaining. 32K disk program $79.95 

ST80* III 

ST-80 D with extra utility programs. 32K disk program $150.00 

THE SOURCE 

Would you like to send mail across the country overnight, write one letter and send it to a hundred people, read the news 
right off the wire service, program in COBOL, FORTRAN, or RPG II, advertise on a nationwide electronic bulletin board, join a 
real time national computer club, leave meuages when you are out of town, make travel arrangements through your 
computer, use a discount shopping service, reach a whole library of specialized information on business, real estate, science 
and engineering, and personal applications, find out what the weather is around the country, and use dozens of high-powered 
applications programs? 

Connect your microcomputer to THE SOURCE! THE SOURCE is a bank of mainframe computers in McLean, Virginia 
connected by TYMNET and TELEMET data transmission services to hundreds of cities around the country. Most urban areas 
can access THE SOURCE by local phone call. 

CosU: 

One time subscription fee (includes manuals) $100.00 

Connect time after midnight (per hour) $2.75 

Connect time between 6 p.m. and midnight (per hour) $4.25 

Connect time 8 a.m. to 6 p.m. (per hour) $15.00 
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' A trademark of Lance MIcklus, Inc 
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Small 
Business 
Book- 
keeping 

by Roger W. Robitaille, Sr. 





Compatible with the popular 
Dome Bookkeeping Journal. 

Posts expenses to as many 
as 42 accounts (which you 
may customize). Produces 

video and Jineprinter reports 
for year to last week, this 

week, year to date; supports 

cash system of accounting; 

stores data on disk for fast 

retrieval. 

32 K S-80 Cassette $24.95 
32K S-80 Disk $29.95 
Donne Bookkeeping 
Journal $7.00 + $1.00 
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6 South St., Milford, N.H. 03055 

ORDER TOLL FREE: 
1-800-258-1790 fj 

(in NH call 673-5144) ^^B 
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by Scott Adams 

There has been a lot of 
discussion recently on software 
piracy in the industry. Now I'd 
like to throw in my two cents' 
worth. At the Chicago personal 
computer show in '80, I had a long 
and somewhat vigorous 
conversation with a confirmed 
software pirate. 

The discussion started when two 
gentlemen came up to our booths 
and were interested in buying a 
Lynx modem for the S-80 (the 
Lynx, by the way, is an excellent 
alternative to the RS232 card and 
modem as sold by Radio Shack). 
While describing the Lynx, I 
mentioned that it came with a 
cassette-based terminal package, 
but that if you were using it on a 
disk based system there were some 
excellent terminal packages 
available from Lance Micklus 
which would work wonders. 

At this point, the other 
"Gentleman" turned to his friend 
and said something to the effect 
that he had a copy, it was a great 
program, and he would give him a 
copy when they got home. 

When I suggested it would 
probably be better to let his friend 
purchase his own copy of ST80, he 
replied that it would be a waste of 
money, since he already had a 
copy to give him. 

When I pointed out that Lance 
and myself are both fairly creative 
authors who are trying to make a 
living full time at writing good 
software, he gave an interesting 
reply. . . 

His basic argument was that in 
the early days of microcomputing, 
he had shelled out many thousands 
of dollars for software, which was 
basically useless, and that since he 
had now, in effect, paid his dues, 
he no longer had to buy software 
anymore! 

I pointed out to him that just 
because he was cheated by fly-by- 
night operators, it wasn't really 
fair to then take his losses out on 
innocent authors like Lance. 

All in all, neither of us really 
changed each other's viewpoint 
very much during our little 
discussion, but one interesting 
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fallout did occur. 

All during our conversation, 
Kim Watt was listening off to the 
side. Kim is a very little known but 
extremely clever and capable 
Machine Language programmer. 
He wrote the very first version of 
"Space Invaders" in Machine 
Language ever to be marketed for 
the S-80, and recently he wrote a 
utility called "Super Utility" for 
the S-80 disk systems. 

"Super Utility" has been a bone 
of contention between Kim and 
myself because of one of the 
features found in it. Besides 
allowing you to format a disk 
without erasing it, repairing bad 
sectors, memory utilities, and a 
host of other fine features, it also 
allows you to make backup copies 
of protected tapes and disks! 

My feeling has always been that 
giving someone a feature like that 
is tantamount to selling handguns 
through the mail: You really don't 
know what use it will be put to! 
Well, anyway, back to my story. 
Kim had listened to our entire 
conversation, and later, after the 
pirate had left, he came over to me 
and said that I had told him about 
critters like that, but he never 
really thought people actually did 
things like this, didn't they realize 
it was dishonest, if not downright 
illegal? Poor Kim left feeling quite 
upset; here he had invented the 
better mousetrap and it turns out 
his friends are the mice! 

To sum up this whole mess, it 
seems odd, but for some reason, 
the average person would not go 
into a large department store and 
shoplift, but he would take a 
pirated copy of a software 
program. In my opinion, either 
action is stealing, and should be 
punished by the full extent of the 
law. Maybe one day all people will 
be honest and trustworthy, and 
war will stop, and life will be 
idealistic, but until then BEWARE 
the software pirate! 

(P.S.: Adventure International, 
in a joint suit with Microsoft, 
recently successfully tried and 
convicted a software pirate in the 
English High Court system! There^^ 
may be hope yet for this industrv.^^ 
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by Roger W. Robitaille Sr. 

Inventory 'S' is an exciting advance in small business 
software for the TRS-80™. its in-memory system of data 
storage solves the problems of both sequential and random 
access files, while providing extremely fast, random access to 
any record. Other advantages include the ability to use any 
combination of characters for stock number; an exceptionally 
flexible record format (field names are user definable); and 
the ability to store data to tape or disk and upgrade at any 
time. Up to 150 items can be stored per 16K of available 
memory, with stock number, description, cost, vendor, 
reorder, and profit data in each record. Use your present 
stock numbers (a sort function is included), unlike competing 
systems which force you to use a different "record number," 
User-definable screen and printer reports let you see just the 
data you need, when you need it. 

Inventory 'S' can be used effectively with a 16K, tape based 
system or a 48K, disk and printer system. 

TAPE VERSION, 16K (min.), LEVEL II $24.95 

a32K DISK VERSION $39.95 

_ WITH INVOICING ON DISK $59.95 




6 South St.Miltord, NH 03055 (603)673-5144 



ORDER TOLL FREE: 
1-800-258-1790 

(In NH call 673-5144) 
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by David T. Cray 

COLUMN CALCULATOR is a 
"word processor for numbers," a 
number processor designed to be 
used like a calculator. But it can 
handle large blocks of information 
as if handling one number at a time. 
The work space can be thought of 
as a large matrix with rows and 
columns much like an accountant's 
spreadsheet. Data can be easily 
entered into columns; and the 
columns can then be moved 
around. Columns can be overlaid 
from existing data file on disk. One 
column can be added, subtracted, 
multiplied, divided, or raised to a 
power of another and the results 
put in another column. Columns 
can be totalled, or set with a 
constant, and any column can be 
sorted, carrying the rest of the 
columns with it. A predefined 
function can be defined, thereby 
preprogramming the worksheet. 

The statistical section provides 
analysis of the data. The analysis 
includes simple statistics, linear 
regression, simple correlation, 
histogram and the T-test. 

The information can be printed 
out on the lineprinter in a 
compressed format at any stage In 
the development of a data base. 
Thus, it can be used as a finished 
report or as a copy of the worksheet 
to permit the filling in of additional 
data for later entry into the data 
base. The data base can be saved on 
disk and recalled at a later date for 
modification or for generating a 
report. Any column in a file on disk 
can be referenced and added to the 
current worksheet. 

All user communication with 
COLUMN CALCULATOR uses 
FLASH, the line input/editor 
routine. This enables the user to not 
only key in instructions, but to edit 
errors or data as well. 
32K, S-80, Disk $39.95 
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iiiiCrab your fiberglass vaulting poles and javelins, strap on 

your cleats and hang on to your hat It's'OLYMPIC 
DECATHLON"from Microsoft, the folks that brought you the 
"Original Adventure" for the microcomputer. 
"Olympic Decathlon" consists of ten athletic events 
carefully designed to simulate the real thing The graphics 
are dazzling, and the variety is enough to keep even the 
most rapidly bored gamer glued to the keyboard. 
iiii This is more than a simple game, it's a true simulation. 
^^^■' T only difference is that the skill, timing and reflexes 
necessary for success all lie in your manual dexterity and 
your hand-to-eye coordination. 

■iS-80 Level I or II, 16K Cassette . $24.95 

iii|S-80 32K Disk . . ,_$24.95 
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Nine Games 
for 

Preschool 
Children 



by George Blank 

Even pre-schoolers deserve a 
shot at the wonders of 
microcomputing. With these nine 
games, they not only will have a 
chance to tickle the keyboard, but 
learn letters and numbers to boot. 
And if that isn't enough, they'll 
have a good time doing so. What 
more could a parent ask for? Here 
are education and entertainment 
for the very young in a single 
package! 

S-80, Level II, 16K, Cassette $9.95 
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DEVELOPING 




DATA BASE 



Part 6 — So you want fancy 

printing... 

by Mark Pelczarski 

translations by Rich Bouchard and 

Phillip Case 

For Apple , S-80, or Atari 

It's a little distressing writing two 
months ahead of release time. As 1 
write this, the December issue, with 
the corrections to the original Atari 
program, is just now being printed. 
I hope all of the Atari owners have 
caught up with us. 

As promised, this month we'll 
add capabilities for print 
formatting, so the program will let 
you print whatever you want, 
wherever you want. Since I 
departed a little from past practice 
by taking a different approach to 
formatting than 1 have before (the 
previous installments of "Data Base" 
had their beginnings in a similar 
program I'd done on a time-shared 
system), I'll try to re-create the 
steps taken from idea to end. 

Since information stored in a 
data base often must be printed 
onto special forms, the goal was to 
create a method for taking a 
record, and instead of printing it: 
heading, item, heading, item, etc., 
allowing the placement of 
everything, on screen or printer, to 
be specified exactly beforehand. 
This specification would be called a 
format, and any number of formats 
should be able to be saved on disk 
by the user. As a result, we have to 
allow the program to create some 
kind of "format file," and decide 
what information must be kept in 
it. Each time the user wants to 
print data, the program would ask 
what format should be used, and 
when told, would set the 
appropriate format information 
from disk. (This will be asked in 
our print initialize routine, starting 
at line 3000.) 

What information is needed in 
the format file? If the program user 
is to be allowed a free choice of 
format, the information should be 



The Developing Data Base series 
is copyrighted, 1981, by Mark 
Pelczarski. It may be reprinted 
with written permission from 
the author. 
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"what goes where?" To be totally 
flexible, the user should also be 
allowed to choose what gets 
printed and what doesn't. Suppose 
someone wants address labels 
printed from a file that has names, 
addresses, phone numbers, and 
other information. You don't want 
the phone number on the address 
label, nor do you want headings. 
The first part of "what-goes-where" 
should then be the "what". 
With any given record (as an 
example we'll say our records 
contain five headings — this varies, 
of course), you have a choice of 
placing five headings and five 
actual items of information. The 
user should be able to specify a 
headings 1-5, or an item 1-5. 

Now a point of decision: How to 
record placements? There are 
several ways, but one natural way 
is to define what the first line 
printed looks like, then the second, 
and so on. That means the 
information necessary is: when to 
tab over to a specified column, 
when to print something, when to 
go to the next line, and when is the 
task complete. The initial 
thought was to code all this 
information into the file with 
numeric codes, or perhaps with 
short mnemonics like T for Tab, L 
for next Line, H for Heading, 1 for 
Item, and E for End. After each 
code would be a number telling 
where to tab, how many lines to 
skip, or what number heading or 
item to print. 

The numeric coding began to 
look appealing when considering 
how the print routines would 
decode this information. With 
numerics (1,2,3,4,5) instead of 
mnemonics (T,L,H,I,E), an ON - 
GOTO statement could be used 
rather than several IF statements 
when directing actions. (It should 
be noted that no matter what is 
actually stored, it will be the 
computer that will code and 
decode this information. The user 
will see much more friendly 
choices.) 

Just when numeric arrays 
seemed a likely method for storing 
this data, a couple considerations 
turned that decision around. The 
more obvious was that a single 

SollSidc FFBRUARY.IWI 



digit number stored as a number 
takes five bytes (on the Apple). 
Stored as a character it takes only 
one byte. Although other factors 
also affect the actual total storage, 
storing numerically in this case 
would use about twice as much 
space. The second reason was a 
late idea that was thrown into the 
situation. If the formatting is to 
allow the use of special iorms Sor 
printing, why not let the program 
create the forms itself? That is, why 
not let the user put things on the 
output that are not in the actual 
data base, such as title and other 
headings? That would only involve 
storing those character strings with 
the rest of the format information. 

To make the story shorter at this 
point, the resulting format uses the 
following codes: 
1-Headings. 
2-Item. 
3-Tab. 
4-Next line. 

Each of the above is followed by a 
two-digit number clarifying the 
action. Single digit numbers will be 
preceded by a zero for uniformity. 
5-String. 

This will be followed by the 
characters that are to be printed 
(title, or whatever). The end of those 
characters will be denoted by an 
exclamation point (!). This is 
AUTOMATICALLY inserted by 
the computer so it can locate the next 
format instruction. As a result, your 
strings may not contain a '!' unless 
you change your program to use 
another character. 
6-End. 

Here's an example of a format 
file, as the computer (not the user) 
sees it: 
3105A NEAT REPORT! 4013105 

! 403 1 05 3 1 520540220 1 3 

2020640 1 20240 1 2034056 
According to the codes above, 
printing a record would do the 
following: 

3 10-Tab to column 10. 

5 A NEAT REPORT !-Print the 
string "A NEAT REPORT". 

4 01 -Skip to the next line. 
3 10-Tab to column 10. 



5 ! - Print the string of 

hyphens, which would underline 
A NEAT... 

4 03-Skip three lines (triple space 
-giving two blank lines. 

1 05-Print heading number 5. 

3 15-Tab to column 15. 

2 05-Print item number 5. 

4 02-Skip two lines (double space). 

2 01 -Print item number 1. 

3 2ft-Tab to column 20. 

2 06-Print item number 6. 

4 01 -Skip to next line. 

2 02-Print item number 2. 
4 01 -Skip to the next line. 
2 03-Print item number 3. 
4 05-Skip five lines. 
6-end. 

The output would appear as in figure 
1. 



A NEAT REPORT 

Member Number 21540 

John Edwards (815)756-1234 
6117 Madison St. 
DeKalb 1L60115 



figure 1 

The actual program changes 
involve revision of the print 
routines and addition of a routine 
that allows you to load or create a 
format. In the sequence that the 
changes were made, the "print 
select" routine was first modified to 
allow a choice between special or 
default formatting (lines 3005- 
3008). The default format is the 
one we've used all along. Yet 
another switch, this time FS, for 
format switch, is introduced and 
has the value 1 if the default is 
used, 2 if a special format is 
selected. If a special format is 
chosen, the program is directed to 
the new subroutine at line 10000. 

F$ is the variable that will hold 
\1ne cYiaiactei string with the format 
codes. Except on the Atari, it is 
dimensioned as an array of six 
elements (0-5) so it allows more 
than 255 characters (maximum 
string length on the other 
computers) in the format 



definition. The variable NF will tell 
how many of these lines are 
actually used. Lines 10000-10030 
check if a format has already been 
loaded [if so, F$(0) is not empty]. 
If one has been loaded, the user is 
asked whether the same one should 
still be used. If that answer is yes, 
the subroutine returns. In any 
other case the user is asked 
whether an existing format should 
be loaded or if a new one should 
be created. Lines 10100-10160 load 
an existing format. 

The set of statements from 10200 
to the end allow the user to create 
a format. Line 10220 gives the 
choices, and line 10240 adds the 
character equivalent of the numeric 
choice to F$. J keeps track of how 
many characters are already in F$ 
so the 255 limit is not exceeded. 
10250 directs the next action based 
on the choice, if a heading or item 
was chosen (1 or 2), the list of 
headings is printed and the user 
chooses one. If a tab or line feed 
was chosen (3 or 4), the user is 
asked for a number (line 10300). In 
all of the above cases, lines 10310 
and 10320 covert the numeric 
choice to a two-digit number and 
add it to F$. 

If a string was chosen (5), line 
10350 gets the string and puts the 
"I" at the end. Line 10360 then 
checks if there is enough room left 
in F$ for the string. If not, the 
next array element of F$ is used. 
10370 adds the string to F$. In 
every case, line 10380 now checks 
if F$ has enough room for one 
more instruction, and if not, adds 
one to NF so the next array 
element is used. (This is one case 
where Atari owners don't have to 
mess around, since Atari strings 
can be of unlimited length.) When 
the end is chosen, lines 10400 to 
10450 save the format under a 
user-supplied name. 

Now that the format is coded, 
we have to make the program 
capable of decoding it. The print 
routines at 3300 and 3600 have 
been stripped so that they call 
default or format subroutines 
depending on FS, the format 
switch. The default subroutine is at 
line 3700, and looks like our old 
print routines. 

The format subroutine starts at 
3800, and must set up the printing 
to conform to our specifications. In 
this subroutine B$ is a print buffer, 
and it is in B$ that we'll assemble 
each line of print before actually 
printing it. J keeps the place in the 
format string, F$, as we move 
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through it, and T keeps track of 
which element of the array F$ 
we're using (Apple and S-80). At 
3810, B$ is set empty. 3820 decodes 
the first instruction, putting it in 
Jl. If a number is involved (JK5), 
then the number is decoded into N. 
In the following lines, A$ will 
temporarily hold anything that will 
later be printed 

If you can keep all that straight, 
line 3840 direccts the appropriate 
action. 3850 and 3860 put either a 
heading or item value into A$. 
3870 does a tab. What happens 
there is B$ is chopped off at the 
tab column, in case the last item 
overlapped onto that location in 
the print line. That means that if a 
name is long, for example, and 
overlaps onto the column you 
reserved for phone number, the 
name is cut short and the phone 
number is still put in the desired 
position. See figure 1 again; The 
phone number will always appear 
where it is now, even if a name has 
to be cut short. The FOR-NEXT 
loop in the same program line adds 
spaces to B$ if they are needed to 
fill in to column N. 

Line 3890 takes action if the 
instruction was "next line". If 
prints B$ and advances any extra 
lines, if necessary. The following 
statement resets B$ to empty. 

Finally, 3910-3940 find any 
string that is in the format 
instructions, J2 marking the 
location of the "!" when it is 
found. Line 3950 adds A$ onto 
B$. 3960 checks if there are any 
more instructions in F$(T) (for the 
non-Atari folks), and 3970 finishes 
printing what was left when the 
"end" instruction is leading. 

Note to Apple parallel card 
users: To get your printer to use 
more than 40 columns, add the 
following to line 8200 after PR#1: 
PRINT CHR$(9);"80N" 
This example will use 80 columns. 
You may replace 80 with whatever 
number you want. 

The print routine probably adds 
more flexibility to the data base 
than any previous installment. The 
next few issues will be devoted to 
cleaning up some of what's already 
been done, using numbers, and 
expanding beyond RAM so you 
can store more information in a 
file. 

As before, questions, comments, 
and ideas should be directed to: 
Mark Pelczarski 
1206 Kings Circle 
West Chicago, IL 60185 
continued on next page 
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continued from previous page 

S-80 VERSION 

102 SC=1611i:Sl=PEEK(SC):S2=PEEK(SC+l) 

103 PR=14422;P1=PEEK(PR)!P2=PEEK(PR+1) 
105DIHC$(7),C1(7),CZ(7),F$(5) 

3(50 IF A» = "D"THENSe=4:FS=l!GOStB8000:GOTOZ00 
3000 IFNI=-lTHENGOSie'9000!R£TURN 
3005 PRINT"(S) SELECT FORMAT, (D) OEFMILT";:GOSIJB60000 
3004 IFA»="S"THENGOSliei0000!FS=2!GOTO3010 

3007 IFA«O"0"THEN3005 

3008 FS=1 

3010 PRINT"(S) SCREEN OR (P) PRINTER" ;:GOSUB60000 SPRINT 

3020 IFAt="P"THENSB=2!GaTO3050 

3030 IFA»O"S"THEN3010 

3010 SE=1!PRINT:PRINT"AFTER EACH RECORD (M) HILL RETURN TO I1ENU, 

m DT>CR KEY CONnNlES.":PRINT"<PRESS ANY KEY>" 

3050 GOSUe&OODOtGOSUeSOlO 

3090 IF Se=2 TltN POKE SC,Sl!POt(E SC+1,S2 

3100 RETURN 

3299 ' PRINT ONE RECORD TO SCREEN, VERSION 1 

3300 ON FS GOSUB 3700,3800 

3310 GOSUB60000:iFA»="M"TlCNRS=l 
3350 RETURN 

3599 ' PRINT ONE RECORD TO PRINTER, VERSION 1 

3600 ON FS GOSUe 3700,3800 
3610 RETURN 

3699 ' PRINT ONE RECORD DEFAULT VERSION 1 

3700 FioNT" ":print"record ";i+i:print" " 

3710 FCRJ=0TONH 
3720 PK[NTH$(J),I$(I,J) 
3730 NEXTJ 
3710 RETURN 

3799 ' print one record forwit version 1 

3800 j=i:t=o;e»="" 

3820 Jl=VAL(NIDt(F$(T),J,l)):j=J+l 

3825 'STOP 

3830 IFJl<5THENN=VAL(MIDi(Ft(T),J,2))!J=J+2 

3810 ON Jl GOTO3850,3860,3870,3890,3910,397O 

3850 A»=H$(N) :GOT03950 

3860 At=I«(I,N):GOT03950 

3870 E«=LEn$(B$,N-l):iFLEN(B*)<N-lTHENF0RJ2=LEN(B»)T0N-Z:Et=E»+" "IICXT 

3880 GOTO3940 

3890 printb«:ifn;>ithem^drj2=2ton:print" ";next 

3900 B»=""!GOTO3960 

3910 IFJ>LEN(Ft(T))THENT=T+i:J=l 

3920 J2=J 



3930 IFKID$(F«(T),J2,l)O"!"THENJ2=J2+l!G0T0393ll 

3910 A»=«ID<(Ft(T),J,J2-J):j=J2+l 

3950 B»=8«+A» 

3960 IFJ>LEN(Ft(T))THENT=T+i;j=l 

3965 GOT03820 

3970 PRINTE«!RETURN 

8200 RS=0;iF SE=2 THEN POKE SCPltPOKE SC+1,P2 

9999 ' FHINT FORMAHING VERSION 1 

10000 IFF$(0)=""THEN10010 

10010 PRINT"SAHE FORMAT?" !;GOSUB60000 

10020 IFA»="Y"THENRETURN 

10030 IFA$O"N"THEN10010 

10010 PRINT"(L) LOAD FORMAT, OR (C) CREATE FORMAT";;GOSUe60000 

10050 IFA»="C"THEN10200 

10060 IFA$O"L"THEN10010 

10100 iNPUT"FORMAT name:";a» 

10110 0PEN"I",2,A« 

10130 imn*2,viF 

10110 FORJ=0TOtf!INPUT»2,F«(J>:iEXT 
10150 aOSE2 
10160 RETURN 

10200 nf=o:j=o;f«(0)="" 

10210 cls!print"start in tl€ upper left cor)€r m work across each ldc." 

10220 PRINT"1 SHEADING, 2!ITEM, 3:T«, 1:^EXT LII€, StSTRING, 6!E«)";iNPUTJl 

10230 IFJ1<10RJ1>6THEN10220 

10210 F»(NF)=F»(NF)+RIGHTt(STRi(Jl),LEN(STT»(Jl))-l);j=J+l 

10250 ONJ1GOTO10260, 10260, 10300, 10300, 10350, 10100 

10260 fort=otonh:printt+i;") ";h$(T);ne)(t 

10270 INPUT"HHICH";T:T=T-l!IFT<0ORr>f»{THEN10270 

10280 GOTO10310 

10300 INPUT"HOH HANY";T:IFT<10RT>99THENPRINT"0UT of RANGE.":GOT010300 

10310 Ai=RIGHT<(STR$(T),LEN(STR$(T))-l):in<10THENA»="0"+A» 

10320 F$(NF)=F»(NF)+fl»!J=kJ+Z 

10330 GOT010380 

10350 INPUT"STRING!";Ai!A$=A$+"!" 

10360 IFLEN(A«)+J>255THENNF=NF+1 : J=0:F$(lf )="" 

10370 Fi(>f )=F$(NF)+A$:J=J+LEN(A») 

10380 IFJ;>252TICNNF=W+11J=0:F»(NF)="" 

10390 GOTO10220 

10100 INPUT"FORMAT NAMES" !A$ 

10110 0PEN"0",2,A$ 

10130 print»z,nf;forj=otonf:print»2,f»(J)!>ext 

lOHO CL0SE2 
10150 RETURN 
60000 A»=INKEY»:iF At=""THEN 60000 ELSE PRMiRETURN continued to page 82 
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Thar's gold in them there pages! 
It's Missouri gold, mind you, and 
the price tends to jump around 
worse'n a mule with athlete's hoof. 
That Phil Case feller brought it to 
our pages . . . the gold, not the 
athlete's hoof! But you have to dig 
the stuff out and then deal with 
the megabusiness of these 
confusin' modern times. Miner, 
can you succeed where others 
didn't? 

After you've made your fortune, 
you can retire to St. Petersburg, or 
wherever, and play golf . . . Mini- 
Golf that is. Mitch Voth, along 
with the unbeatable translation 
of Rich Bouchard (who gave the 
Miner program to you Atari 
owners), grace our pages with a 
nine-hole miniature golf course. 
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The eighth hole is a killer. 

If you tire of a life of ease, 
consider turning mercenary and 
driving a tank . . . Tanks-a-Lot 
permits you to face any other 
formerly retired mercenary tank 
jockey in a head to head duel . . . 
if you can find the other fellow in 
the maze before he finds you! 

As if that isn't enough, while 
away your time in the trenches 
with a Hangman game with a new 
twist: Famous Sayings Hangman. 
Changing Hearts is another game 
between the pages this month. No, 
it isn't about turncoats and the 
Hke, it's a puzzle. We munchkins 
love puzzles . . . but we're still 
working on that one about "what 
are we doing here?" Haven't 
figured it out yet. 
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And we have a new writer in our 
stable, named Ed, of course. Ed 
Umlor, or Granite Knoggin to his 
friends. He lets you in on the 
wonders of hardware and 
software, not to mention a success 
story to make Horatio Alger roll 
over in his library. 

And guess what? The SoftSide 
Continuing Data Base does just 
that: continues. Not to mention 
Scott Adams, Joan Truckenbrod, 
Mark Pelczarski, and Roger W. 
Robitaille Sr. all getting long- 
winded and filling pages with 
pearls of wisdom. Go ahead, don't 
take our word for it, read on. 
Until next month, a merry 
munchkin farewell! 
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ON-LINE SYSTEMS 

HI-RES ADVENTURES 

For 48K Apple II and Apple plus 

MACHINE LANGUAGE 



#1 Mystery House 

$24.95 on disk 

You are transported to the front lawn of a large, old Victorian 

house. Upon entering the house you find yourself enmeshed in 

murder, mystery, and intrigue from which you cannot escape until 

you solve the puzzles. One by one your friends are being murdered 

and it is up to you to find out who the killer is and why he is bent on 

mayhem. But watch out! The killer just might find you first. As you 

explore the house you will encounter puzzles to solve and hazards 

which must be overcome. The secret passageway might lead you to 

the answer. 

*Over 100 Hi-Res pictures for playing and watching your 
adventure! 

'All rooms in the house appear in full Hi-Res graphics, complete 
with objects you can carry, throw, drop, or ??? 
"Speak to the computer in plain English — over 300 words! 



BOTH 

ADVENTURES 
CAN BE SAVEDI 




#2 The Wizard 

and the Princess 



S32.95 on disk 



A princess in distress! Only you can rescue her from the clutches 
of an evil wizard and save her life. But to find the wizard and his 
castle, you must first cross deserts, mountains and oceans to reach 
an island, encountering strange beasts along the way. You will have 
to learn magic, navigate at sea, and search for buried treasure. This 
epic game should provide months of pleasure. 

"Hundreds of Hi-Res pictures! 

"Full 21 color Hi-Res graphics! 
"By far the most ambitious graphics game ever written for the Apple. 
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HI-RES 
FOOTBALL 

by clay Sullivan and 
Ken Williams 

SYSTEMS 



Here is the best football 
game we have seen for the 
Apple. Visually exciting, Hi- 
Res Football is a real-time 
action game requiring a 
combination of skill and 
strategy. 




You and your opponent 
call the plays and control the 
movement of the offensive 
and defensive teams during 
the course of play. While 
each play is in progress, the 
Quarterback can decide to 
either run or pass, and the 
defense must react quickly. 
You can play either against a 
human opponent of the 
computer. In either case, it's 
on your toes or on your 
back! 

48K Apple II or II+, Disk, 
Machine Language . . . $39.95 
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Satisfy your 
craving for 
invasion 





\ 




INVASION S 



Now you can continue to play this popular arcade game even 
after you run out of quarters! Shoot down the invading aliens, 
but protect your guns from their bombs. 

Great sound and graphics. (Sound requires external amplifier.) 

16K Level II cassette $9.95 (plus $1 shipping) 
32K Disk $14.95 (plus $1 shipping) 



\ \ 
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sensatioRal 
software 

SUPER INVASION 

Fifty-five aliens advance and shower you with lethal, writhing electric worms. As you pick off the 
aliens one by one, they quicken their descent. They whiz across the screen, wearing away the 
parapets which are your only defense, coming closer and closer to your level. SUPER INVASION is 
the original invasion game with the original moon creatures. 

32K Apple II cassette $19.95 (plus $1 shipping) 
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SlAUlUXTOR 



TSCJHPROSIIX 

6 South St., Milford, N.H. 03055 

ORDER TOLL FREE 

1-800-258-1790 

(in NH call 673-5144) 
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LOGIC 



The FSl Flight Simulator from subLOGIC combines fine graphics and 
accurate flight characteristics to give you a real time simulator on a home 
computer. The instrument panel contains all the instruments required 
under part 9 1 of the Federal Aviation Regulations for visual flight. On top 
of that, the FS 1 includes a stall warning, turn indicator, radar map, bomb 
and ammo indicators, and control position indicators. 

Included in the package is British Ace 30 Aerial Battle, a program that 
permits you, after gaining enough confidence, to take on enemy planes and 
try to wipe out a fuel depot. 

S-80 Cassette, 16K Machine Language $25.00 

16K Apple Cassette $25.00 

16K Apple Disk $33.50 
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The Leader in Utility Software for S-80 Computers 



"BLINK" - BASIC LINK FACILITY 

BLINK allows the user to run one BASIC program, and by executing one single command, transfer control to anottier BASIC program without losing 

variables in memory. 32K, Disk $25.00 

INFINITE BASIC 

Extends Level II BASIC with complete MATRIX functions and 50 more string functions. Includes RACET machine language sorts! Sort 1000 elements in 

nine seconds! (Mod 1) 16K Cassette or Disk $49.95 

INFINITE BUSINESS (Requires INFINITE BASIC) 

Complete printer pagination controls — auto headers, footers, and page numbers. Packed decimal arithmetic — 127 digit accuracy +.-,*,/. Binary 

search of sorted and unsorted arrays. 16K Cassette $29.95 

REMODEL + PROLOAO 

Renumber all or any part of program (partial renumbering in the middle of program). Move any block of lines to new locations. Partial or complete tape 

merges — with renumbering on the way in! Save partial programs (common subroutines or data). 

(Mod 1) Specify Cassette or Disk; 16K, 32K, or 48K $34.95 

TIMSER 

Time Series Analysis (regression analysis). Nine different first, second, and third order curve fits. Screen curve and variance plots. Projections, 

R-squared, Durbin Watson, correction factors and functions. 

(Mod 1)16K Cassette or Disk $14.95 

COMPROC 

Command Processor. Auto your disk to perform any sequence of instruction: DIR, FREE, pause, wait for user input, BASIC, number of FILES and MEM 

SIZE, RUN program, respond to input statements, BREAK, return to DOS, etc. Includes lower case driver software, debounceand screenprint! (Mod 1) 

16K Cassette $19.95 

GSF 

Generalized Subroutine Facilities. Machine language — fast and powerful! Multi-key multi-variable and multi-key character string. Zero and move ar- 
rays. (Mod 1) Specify Cassette or Disk; 32Kor48K $24.95 

DOSORT 

Sequential file disk sort merge. Includes GSF. (Mod 1) Minimum 32K two-drive system. Specify 32K or 48K Disk $34.95 

OSM 

Disk Sort/Merge for RANDOM files. All machine language stand-alone package for sorting speed. Establish sort specification in simple BASIC com- 
mand File. Execute from DOS. Handles multiple diskette files! Super fast sort times — improved disk I/O times make this the fastest Disk Sort/Merge 
available on Mod 1. Minimum two-drive system. 32Kdisk $75.00 



TS€dHPIRDSID€ 



6 South Si .Millord. NH 03055 (603)673-5144 
TOLL FREE OUT OFSTATE 1 •800-258-1 790 




SorcSide FEBRUARY. 1981 



2/ 



COMPUTER GRAPHICS 




Three Dimensional Rotation Pt. Ill 

by Joan Truckenbrod 

Three-dimensional figures or 
objects can be constructed and 
rotated in space with the aid of a 
computer graphics system. Objects 
in three-dimensional space are 
described by X, Y and Z 
coordinates in a Cartesian 
coordinate system. The procedure 
for constructing a three- 
dimensional figure in space is 
illustrated in the previous issue of 
SoftSide, January, 1981. Once 
constructed, these figures can be 
rotated around the X, Y or Z axes. 
Figures can be rotated in these 
three directions individually or in 
various combinations. By using 
various combinations of X, Y and 
Z rotations, a figure can be moved 
about in space in any direction. 
Visually dynamic figures and 
objects can be created by rotating a 
figure simultaneously on all three 
axes. For example, a figure can be 
drawn in perspective with 20 
degree rotation on the X axis, a 60 
degree rotation on the Y axis and 
300 degree rotation on the Z axis. 
Using the rotation technique 
described here, dynamic figures can 
be created for video games, 
computer-aided learning programs, 
and for animated sequences. 

The program illustrated here 
provides the capability for drawing 
a three-dimensional figure in 
perspective at any desired viewing 
angle. In the program, the figure is 
defined and its orientation relative 
to the X, Y, and Z axes, is 
specified. These figures are drawn 
on the video screen in line, as wire 



frame drawings. Various planes in 
these drawings can be colored in or 
shaded in by hand or with the use 
of a digitizing tablet in order to 
clarify the three-dimensional 
character of the drawings. The 
rotation formulas used in this 
program rotate the figure around 
the origin (0,0). In order to rotate 
the figure in its original location on 
the video screen, it is necessary to 
move the figure so that it is 
centered on the origin, apply the 
rotation formula, and then move it 
back to its original position. 
Consequently, the rotation 
formulas contain translation 
factors which are the X, Y and Z 
coordinates of the center point of 
each figure (XC, YC and ZC). 
These values are identified and 
assigned in subroutine 4000 in the 
program. This rotation procedure 
was discussed in the November, 
1980 issue of SoftSide. 

Rotation around the Z axis 
rotates or turns the figure in a 
counter-clockwise manner around 
the axis that projects out towards 
you, as is shown in figure 1. This 
type of rotation is carried out in 
subroutine 5000 in the program. 
An example of a Z rotation is 
shown in figure 2, in which a cube 
is sequentially rotated around the 
Z axis from zero to 90 degrees in 
ten degree increments. To further 
aid in visualizing this type of 
rotation, figure 3 shows a series of 
cubes, all rotated 20 degrees on the 
Y axis and sequentially rotated 
from zero to 90 degrees in intervals 
of ten degrees on the Z axis. 
Rotation around the Y axis is 



similar to turning the pages of a 
book. The rotation formula for Y 
rotations is in subroutine 6000 in 
the program. This formula rotates 
or turns the figure in a counter- 
clockwise direction around the Y 
axis as shown in figure 4. With this 
rotation, the cube is turning on a 
pole that projects vertically 
through the cube from the top to 
the bottom. This is illustrated in 
figure 5. The same rotation 
sequence is repeated in figure 6 
with the addition of 20 degree 
rotation on the X axis to show the 
cube rotating in a clearer manner. 

Rotation around the X axis is 
carried out in subroutine 7000 in 
the program. Figure 7 contains a 
diagram of the direction of the X 
rotation. In this type of rotation 
the cube turns around a horizontal 
pole projected through the center 
of the cube from the left side to the 
right side. In figure 8 the cube is 
shown rotating around the X axis 
from zero to 90 degrees in ten 
degree increments. Figure 9 shows 
the same rotation sequence on the 
X axis with the addition of a 20 
degree rotation on the Y axis. The 
potential of combined X, Y and Z 
rotations will be explored in the 
next issue. Subroutine 8000 
translates the X, Y, and Z 
coordinates defining the rotated 
image in space, into X and Y 
coordinates so that it can be drawn 
on the two-dimensional video 
screen. The process of translating a 
three-dimensional figure back into 
a two-dimensional plane, was 
discussed in the previous issue of 
SoftSide, January, 1981 



ROTATION AROUND THE Z AXIS 




Z ROTATION FORMULA 



5020 FOR I = 1 TO NP 

5030 XUl) = (X(I) - XC) 

5040 YKI) = (X(I) - XC) 

5050 Zl( 1 ) = Z( 1 ) 

5O60 NEXT I 



COS (R) - (Yd) - YC) » SIN (R) t XC 
Sill (R) t <Y< I) - YC) « ens (R) I YC 



Figure I 
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Figure 2 — Cube rotating around the Z axis at 10 degree intervals. 



ffU^ 




Figure 3 — Cube rotating around the Z axis at 10 degree intervals with a 20 degree rotation around the Y axis. 



ROTATION AROUND THE Y AXIS 



V 



Figure 4 



Y ROTATION FORMULA 



4020 FOR I = 1 TO HP 

6030 X2(I) = (ZKI) - ZC) » BIN (R ) M Xl( I ) - XC ) » COS (R) t XC 

6040 Z2(I) = (ZKI) - ZC) » COS (R ) - ( Xl( I) - XC ) « SIN (R) t ZC 

6050 Y2(I) = YKI) 

6060 NEXT I 






Figure 5 - Cube rotating around the Y axis at 10 degree intervals. 
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Figure 6 — Cube rotating around the Y axis at 10 degree intervals with a 20 degree rotation around the X axis. 
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ROTATION AROUND THE X AXIS 




X Rotation Formula 



7020 FOR I = 1 TO NP 



7030 NZ(I) = (Z2(I) - ZC) « COS (R) + (Y2(I) - YC) « SIM (R) t K 
7040 NY<I) = (Y2(I) - YC) » COS (R ) - ( Z2( I ) - ZC ) ♦ SIM (R) I YC 
7050 NX(I) = X2(l) 
7060 NEXT I 



Figure 7 
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Figure 8 — Cube rotating around the X axis at 10 degree increments- 
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Figure 9 — Cube rotating around the X axis at 10 degree increments with a 20 degree rotation around the Y axis. 



continued on next page 
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continued from previous page 

53 REH THIS PrSgRAM^ ROTATES A THREE DIMENSIONAL FIGURE ON THE Xf Y AND/OR Z AXIS 



60 

70 

80 

100 

101 

102 

103 

104 

105 

110 

120 

130 

140 

145 

ISO 

160 

170 

180 

185 



REH WRITTEN BY JOAN TRUCKENBROO 
D$ = •" 
REM D* CONTAINS A CTRL D 

DIM X(10)rY(10)»Z(10) 

DIM XT(10)fYT(10)»ZT<10) 

DIM NX(10)>NY(10)fNZ(10) 

DIM Xl(10)»Yl(10)fZl(10) 

DIM X2(10>»Y2(10)fZ2(10> 

DIM C(24) 

REM NP IS THE NUMBER OF 

REM NC IS THE NUMBER OF 
NP = 8 
NC — 12 

REM THE FOLLOWING LOOP READS THE X» Y AND Z VALUES THAT DESCRIBE THE FIGURE. 

FOR I = 1 TO NP 

'~.AD X(I)fY(I)fZ(I) 
;XT I 



190 
200 
210 
220 
230 
240 
241 
242 
250 

260 
270 
280 
290 
300 



POINTS IN THE FIGURE 
CONNECTION LINES IN THE FIGURE 



DATA 50f50»0»90»50»0»90»90f0»50»90f0»50f90»40»50f50f40»90f50f40f90f90f40 

REM THE FOLLOWING LOOP READS POINT NUMBERS THAT ARE TO BE CONNECTED WITH LINES 

TO CONSTRUCT THE FIGURE IN SPACE. 
FOR I = 1 TO NC * 2 
READ C(I) 
I 

I»2»2»3f3f4f4flf5»6»6f7»7»8»8f5»l>6f2f7f3»8»4»5 
STATION POINT LOCATION IS SXiSYfSZ 
- 150 



NEXT 

DATA 

REM 

SX = 

SY = 

SZ = 

REM 



310 
320 
330 
335 
336 
340 
360 
370 
380 
385 
390 
395 
396 
400 
405 
410 
415 

420 
423 
424 
425 
426 
430 
440 
450 
460 
470 

500 

510 

520 

530 

600 

3000 

3005 

3010 

3020 

3030 

3O50 

4000 
4005 



- 100 

- 7000 
THE NEXT TWO LOOPS CALCULATE THE TWO DIMENSIONAL PROJECTION OF THE THREE D 

IMENSIONAL FIGURE. 

FOR I = 1 TO NP 
XT( I ) = ( X(I ) t SZ ) / ( Z( I ) + SZ ) 
YT( I ) = ( Y( I ) « SZ ) / ( Z(I ) + SZ ) 

NEXT I 

REM THIS LOOP CALCULATES THE NEW X AND Y COORDINATES FOR CONSTRUCTING THE FIGU 

RE ON THE SCREEN. 

FOR I = 1 TO NP 

Z(I)) « XT(I>) / SZ 
Z(I ) ) * YT< I ) ) / SZ 



X( I ) = ( ( SZ - 

Y<I) = (<SZ - 

NX( I ) = X(I ) 

NY( I ) = Yd ) 

NEXT I 

HCOL0R= 3 

GOSUB 3000 



"DO YOU WANT TO ROTATE THE FIGURE? Y/N" 
A$ 

•N" 
4000 



THEN GOTO 600 



'ANGLE OF ROTATION AROUND X AXIS-JAS 



IS'fAl 
IS"»A2 
IS"fA3 



PRINT 

INPUT 

IF A» 

GOSUB 

PRINT 

INPUT "ANGLE OF ROTATION AROUND Z AXIS"?^ 

PRINT 

INPUT 'ANGLE OF ROTATION AROUND Y 

PRINT 

INPUT 
PRINT 
PRINT 
PRINT 
PRINT 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 

INPUT 

IF B$ 

INPUT 

PRINT D$f'BSAVE"P$"»A8192fL8192" 

END 

REM 

HGR 

FOR I = 1 TO NC » 2 STEP 2 

HPLOT NX(C(I))fNY(C(I)) TO NX( C(I + 1))»NY(C(I + 1>) 

NEXT I 

RETURN 

REM SUBROUTINE CALCULATES THE CENTER POINT OF THE FIGURE 

REM THIS IS NECESSARY FOR ROTATING THE FIGURE IN ONE PLACE ON THE SCREEN. 

o:yl = o:zL = o 



'Z ROTATION 
'Y ROTATION 
'X ROTATION 
5000 
6000 
7000 
8000 
3000 

'DO YOU WANT TO SAVE 
= 'N* THEN GOTO 600 
'NAME OF PICTURE?" fP$ 



PLOTTING SUBROUTINE 



THIS PICTURE ON YOUR DISK? Y/N"?Bi 



4O10 XS = 280:YS = 192:ZS = 300:XL 

4O20 FOR J = 1 TO NP 

4030 IF X< J ) < XS THEN XS = X( J ) 

4040 IF X(J) > XL THEN XL = X( J ) 
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4O50 IF Y( J ) < YS THEN YS = Y( J ) 

4060 IF Y( J ) > YL THEN YL = Y( J ) 

♦070 IF Z(J) < ZS THEN ZS = Z(J) 

4080 IF Z(J) > ZL THEN ZL = Z(J) 

4090 NEXT J 

4100 XC = (XS + XL) / 2:YC = (YS + YL) / 2:ZC = (ZS + ZL) / 2 

4110 RETURN 

5000 REH ROTATION AROUND THE Z AXIS 

5003 IF Al = THEN GOTO 5070 

5005 REjj THE ANGLE OF ROTATION IS TRANSLATED INTO RADIANS FOR THE SIN AND COS FUNC 

5010 R = Al / 57.2958 
5020 FOR I = 1 TO NP 

5030 XKI) = (X(I) - XC) I COS (R) - (Yd) - YC) * SIN (R) + XC 
5040 YKI) = (X(I) - XC) « SIN (R) + (Yd) - YC) * COS (R) + YC 
5050 Zld ) = Zt I ) 
5060 NEXT I 

m fSJ°I=i»? TO HP 

5080 xid) = x(I):yi(I) = Yd):zid) = zd) 

5090 next I 

5100 RETURN 

6000 REH ROTATION AROUND THE Y AXIS 

6003 IF A2 = THEN GOTO 6070 

6010 R = A2 / 57.2958 
6020 FOR I = 1 TO NP 
6030 X2d) = (Zld) - ZC) I SIN (R) + (Xld) - XC) * COS (R) + XC 

6040 Z2d) = (Zld) - ZC) « COS (R) - (Xld) - XC) t SIN (R) + ZC 
6O50 Y2d) = YKI) . 
6060 NEXT I 
6065 GOTO 6100 

6070 FOR I = 1 TO NP 

6O80 X2d ) = Xl( I ):Y2( I ) = Yl( I ):Z2( I) = Zld ) 

6090 NEXT I 

6100 RETURN 

7000 REM ROTATION AROUND THE X AXIS 

7005 IF A3 = THEN GOTO 7070 

7010 R = A3 / 57.2958 

7020 FOR I = 1 TO NP 

7030 NZd ) = ( Z2d ) - ZC ) * COS ( R ) + ( Y2d ) - YC ) « SIN ( R ) + ZC 
7040 NYd) = (Y2d) - YC) t COS (R) -(Z2d) - ZC ) « SIN (R) + YC 
7050 NXd ) = X2( I ) 
7060 NEXT I 

7065 GOTO 7100 

7070 FOR I = 1 TO NP 

7O80 NXd ) = X2( I )tNZ( I ) = Z2( I ):NY( I ) = Y2d ) 

7090 NEXT I 
7100 RETURN 
8000 REM TRANSLATION OF THREE-D ROTATED FIGURE TO TUO-D PLANE 



m 



FOR I ~ 1 TO NP 

XTd) ="(NXd) * SZ) / (NZd) + SZ) 

8O30 YT( I ) = ( NYd ) « SZ ) / ( NZd > + SZ ) 

8040 NEXT I 

8050 REM NEU X AND Y COORDINATES 

8060 FOR I = 1 TO NP 

8O70 NXd ) = ( ( SZ - NZd ) ) * XTd ) ) / SZ 
8080 NYd) = ((SZ - NZd)) * YTd)) / SZ 
8090 NEXT I 
8100 RETURN 



© 
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ATTENTION 
AUTHORS 



SoftSide Magazine, the leader in 
the field of BASIC software 
programming for home computer 
applications, is actively seeking 
program and article submissions 
for the more popular home 
microcomputers, as well as for 
product reviews. This is your 
chance to make some extra cash 
and become famous in the 
progress! 

We are interested in programs 
written in BASIC with any 
alternate language subroutines 
worked into the program only 
within the framework of BASIC. 
Games and educational software, 
as well as any other applications 
for the home computer user are 
preferred, although we will 
consider virtually any type of 
program. 

We are looking for well-written, 
informed reviews of all software 
for the popular home computers 
for publication in the magazine. 
Reviews should take into 
consideration all aspects of a 
particular software package, from 
speed of execution to programming 
creativity to the estimated length 
of time that the product will hold 
the consumer's interest. 

When submitting a program, 
please be sure to include full 
documentation of subroutines and 
a list of variables, as well as a 
brief article describing the 
program. All such text, as well as 
article and product review 
submissions, should be typewritten 
and double-spaced. Programs 
should be submitted on a good 
cassette or disk, and should 
function under both Level II and 
Disk BASIC. 

Send to: 

SoftSide Publications, 
Submissions Dept., 
6 South St., 
Milford, N.H. 03055 

Be sure to send for our free 
Author's Guide. 




I PONT THINK WET^E 
IN KANSAS ANYMORE . . . 



We regret that due to the 
volume of submissions we receive, 
we are unable to return your 
cassettes or disks. 



© 
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by Mark Pelczarski 

This whole industry can be very 
intimidating at times. Ten years 
from now looking at one of our 
present-day microcomputers will be 
like someone today looking at one 
of those newfangled hand-held 
calculators that appeared eight 
years ago. You know, the ones that 
could add, subtract, multiply, 
divide, and even find squares and 
square roots. Cost: $150. My 
roommate in college got one of 
those. Me, 1 waited a year for one 
of the ones with all the fancy trig 
functions, logs, factorials, and a 
memory location! Cost: $150. 
Today you could get one like my 
former roommate's for opening a 
bank account, mine might cost $40. 

It's intimidating discovering that 
some of the leaders in the software 
field are still in their teens. Yes, 
some of the major software pieces 
out there are written by 17, 18, and 
19 year-olds. At that age 1 was still 
using a slide rule. (A what?) Am 1 
over the hill at 26? 

Where does it all go now? The 
current wave has been refinement 
of existing ideas rather than 
dramatic new changes. Better use 
of existing processors, better and 
cheaper printers, improved 
graphics and sound, and more 
sophisticated software on the same 
machines are the current trends. 
Don't let that lull you to sleep. 

Teleprocessing is what will bring 
computer use into the home. 
Systems like "The Source'' and 
"Micronef just touch the surface 
of the future. Tomorrow's phone 
will be a computer terminal itself. 
It may not look like a computer, 
but it will be there, allowing you to 
access more information than you 
could ever possibly need. It will 
probably have one of those 
calculator-style printers attached, if 
you like. Oh, yes, there will be a 
cordless hand-held unit on it too, 
so you can still call your friends. 

And what other advances can we 
expect in the meantime? Memory. 

SoftSide FEBRUARY. 1981 



Googols of it. (Mathematicians 
please pardon the exaggeration.) 
Our 48K machines will be mere 
toys. How many hundred K do 
you want? And today's amateur 
programming experts will be 
rarities. It takes a lot of program 
to fill a couple hundred thousand 
bytes, but what programs they'll 
be! The amateurs will still exist, of 
course, but keeping up with state- 
of-the-art software will start 
requiring full-time effort. Floppy 
disk drives may be occasional 
conveniences, perhaps used with 
the above mentioned phones. If 
you're at all serious you'll have a 
mini-hard disk. Faster. Holds a lot 
more, no fuss. Oh, talking too. 
And listening. Good thing you can 
pull the plug. 

Given a little more time, 
programming a computer will no 
longer be synonymous with using 
BASIC, Pascal, Fortran, COBOL, 
or whatever. Programming a 
computer will mean being able to 
make it display the stock market 
prices, or making it put that 
information into something like 
"Visicalc""; the type of procedures 
that current-day programs allow us 
to do. Remember that the 
languages mentioned above are 
nothing more than programs 
themselves. The BASIC 
programmer is usually oblivious to 
what's really going on in machine 
language. There are still purists 
who believe you're not 
programming unless you use 
machine language. In the future 
people will turn on a machine and 
have immediate access to word 
processing, data bases, 
computational aids, and even 
games — and justly feel that they 
are able to program a computer. It 
will be very conversational, close to 
using straightforward English. And 
we'll all be the purists claiming that 
one doesn't really program 
computers unless one uses BASIC, 
Pascal, Fortran,... 

P.S. Four days after writing this, 
I found a calculator similar to 
mine advertised for $13.88. I must 
have blinked. Cj 




COMPUTER SCIENCE PRESS 



AN IMPORTANT NAME 

FOR QUALITY BOOKS 

IN COMPUTER SCIENCE 



THE NATURE OF COMPUTATION: AN INTRODUCTION TO COMPUTER SCIENCE 

Ira Pohl and Alan Shaw 



Intended for a first course in computer science, this book deals witli the core concepts of the 
subject parelleled with an introduction to programming. It provides the following three 
major objectives; a survey of the field, an initial literacy in the language and methods of 
computer science, and a historical, philosophical, and social perspective. Since computer 
science is the study of algorithms, the book covers the technical foundations and applications 
by constructing and studying a number of basic algorithms for each topic. The history, 
applications, and social implications of various technical developments are discussed, and 
significant contemporary work is described. Also introduced are some of the controversies 
surrounding advances in computing, including those related to noncomputability, artificial 
intelligence, computer modeling, and data banks and privacy. November 1980. $16.95, (CIP) 
0-914894-12-9. 



THE NATURE OF 
COMPUTATION; 

AN INTflODUCTiON TO 
COMPUTER SCIENCE 




mSCAL 

An Introduclion lo 
Methodical Programming 
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STRUCTURED 
BASIC AND 
BEYOND 




PASCAL: AN INTRODUCTION 

TO METHODICAL PROGRAMMING 

William Findlay and David Watt 



STRUCTURED BASIC AND BEYOND 

Wayne Amsbury 

Although over 130 books have been published on the BASIC 
programming language, this book is an outstanding teaching and 
self-educational vehicle. The details of the language are presented 
in an easily understood and well written manner oriented toward 
interactive terminal use. It emphasizes structured programming 
concepts and goes beyond to include concepts related to data 
structures, file, strings and lists, stacks and queues. This book 
presents one of the most comprehensive and most useful set of 
examples and exercises in BASIC, ranging from simple to 
challenging. These features make this book ideal for both teacher 
and student. September 1980. $10.95. Paper, (CIP) 0-914894-16-1. 



This book, intended for use in a first course in programming, is 
based on the PASCAL language. It assumes no prior knowledge of 
computing and only elementary mathematics. Emphasizing 
programming principles, good style, and a methodical approach to 
program development, it is an excellent introduction to PASCAL, 
including a thorough treatment of both the fundamental language 
features and the few features which are not truly fundamental. 
Thus the book is useful to readers who go on to program in a 
language other than PASCAL. 1978. $12.95. Paper, (CIP) 0- 
914894-19-6. 
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6 South St .Milford, NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-800-258-1790 
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INTERACTIVE 
FICTION 



Strategic Simulations 




From 

Adventure 

International 



Step into a new pg.'^f 
dimension n 

in literature. ^'^-' 

The computer sets the scene with a 
fictional situation, which you read from 

the terminal. Then you become a 
character inn the story: When it's your 
turn to speak, you type in your 
response. The dialogue of the other 
characters, and even the plot, will de- 
pend on what you say. 

Six Micro Stories offers an introduc- 
tion to Interactive Fiction. Six short 
stories involve you in a variety of situa- 
tions You are an American spy in 
Hitler's Third Reich, the pilot of a 

doomed 747, and more 
Local Call for Death is a detective 
story considerably more challenging 
than the above program. This one will 
put your analytic skills to the test. 
Two Heads of the Coin is a 
psychological mystery set in the Lon- 
don of Sherlock Holmes. Most 
challenging of all, this program will tax 
your observational skills and, above all, 
your imagination. 

On TRS-80 Disk. Requires User to have 
a copy of TRSDOS 2.2 or 2.3. 

Six Micro Stories $14.95 

Local Call For Death $19.95 

Two Heads of the Coin $19.95 

75€:IHPRn>SID€ 

6 South St., Mllford, N.H. 03055 

ORDER TOLL FREE: 
1-800-258-1790 

(In NH call 673-5144) 






Historic wargaming may be the only intellectual hobby which creates more in- 
tensely devoted fanatics than home computing. When two wargamers spend an 
evening refighting a famous battle, they'll spend several hours happily setting 

up the gameboard, firepower charts, unit strength tables and so forth. . .all 
before the first shot can be fired! There are such paper and pencil simulations 

of every famous battle from Shiloh to El Alamein. If you've ever tried one, 
you already know the excitement and challenge of trying to be a better general 

than Rommel. 

If you've got an Apple II Plus (or an Apple II with Applesoft Firmware ROM 
Card) with 48K memory and a 5 V*" mini floppy disk drive, you can be play- 
ing Computer Bismarck in a few days. For $59.95, you can get the game pro- 
gram disk, two mapboard charts (for plotting secret strategies in grease pencil 
between moves), two ship data charts, two system command cards, a loading 

instruction sheet, and a rulebook $59.95 

Computer Bismarck is also available for the S-80 

Level II on cassette for $49.95 

Disk $59.95 




AMBUSH 



Computer controlled mapboard of a typical French village. 

Step-by-step computer regulated play. 

Extensive line of sight rules providing for hidden movement. 

Each soldier individually rated for strength, intelligence, dexterity, and 

marksmanship. 

Realistic weapons, characteristics, and explosives. 

Sophisticated movement rules permitting running, walking, crawling, dodging, 

and sneaking. 
Simultaneous execution of orders. 
Ability to save a game in progress and restart it at a later date. 
Playing time 1 to 5 hours. 48K Apple Machine Language - Disk $59.95 





6 South St .MiHord. NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-800-2S8-1790 
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Zork™ is a computer fantasy of 

ultimate challenge. Unearthly 

creatures guard treasures beyond 

your imagination. Mazes confound 

your quest. So quicken your wits 

and pick your path carefully 

through the Great Underground 

Empire. The least likely object may 

be the only thing that can save 

your life. 

Yet, you can succeed. Discover 

the 20 treasures of Zork, return 

them to the Trophy Case and leave 

alive. But bring all the cunning 

and courage you can muster. 

Because in Zork, they take no 



Zork, The Great Underground 

Empire, was created by Infocom, 

Inc., and is available for 32K 

Apple® II and II Plus and 32K S- 

80™ Model I Level II disk systems. 

$39.95 
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6 South St .Milford. NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 
1 •800-258- 1790 



FROM 

PERSONAL 
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and Leo 

Christopherson 

combine to 

bring you .... 



G 



Acorn 

Software Products, Inc 




QUCL-ni-DnoiOB 



You are the Fencing Master and 
your Android is the raw material 
you use to claim top honors in the 
Tournament. All you need to do is 
train him (her, it?). To do so, you 
make the android duel with the 
machine's androids. Once he is 
trained to your satisfaction, just 
enter him in the Tournament and sit 
back to watch the fun. 

Features include: 

*Extensive Graphic Displays 
'Multiple Playing Levels 
'Sound Effects 

Christopherson is the author of 
such programs as Android NIM, 
Snake Eggs, and Bee Wary. Don't 
miss out on the chance to add this 
great action game to your software 
library. 

TRS-80 Level II, 16K Cassette$14.95 
Disk $20.95 




TS£dHPIRDSIO€ 



6 South St .Milford, NH 03055 (603)673-5144 
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BASF 

We don't recommend that you sit on your new BASF disks, but we're packaging them so 
that they could take that kind of punishment. 

When you buy our 5V*", 1 00% certified, single sided, single or double density disks, you will 
receive them in a handsome tan hard plastic library case at no extra cost. Each box contains 
ten disks of the highest quality, from the people that all but invented magnetic recording 
media. 

The hard plastic library case ensures that your disks will remain well protected from the 
ravages of time, weather, children, and pets. No more flimsy cardboard boxes that fall apart 
within a few weeks! 

Box of 10, 5V/' Single Density $34.95 +$2.00 

Box of 10, 5Vt" Double Density $44.95 +$2.00 

Box of 10, 8" Double Density $49.95 + $2.00 



1 




.^^.^^ 






' 1 
MasterCard 


VISA 


^^^ ^^^ 


1 II 
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6 South St ,Milford,NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-800-258-1790 
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Games from BIG FIVE will TRS'SO' 

tum your computer into a UirjIWIC AROADF 



SUPER NOVA 



© 





"Huge ASTEROIDS have invaded the 
galaxy! Your mission is to destroy them 
and the alien saucers before they de- 
stroy you!" Our #1 top selling game! 

$14.95 16K Level I or II 



AHACK FORCE 
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"Eight alien ramships are warping down 
toward your destroyer ship. You must 
shoot them down quickly before they 
crush you'" With sound! 

$14.95 16K Level I or II 



GALAXY INVASION 



© 




"The newest and most exciting In- 
vaders-type game yet' Smooth sound 
effects, sharp graphics, and the Flag- 
ship' alien from Super Nova combine 
to make this our finest TRS-80 game'" 

$14.95 16K Level I or II 
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LONG DISTANCE 




Long Distance is an S-80 
program which will run in 4K of 
RAM. 

As you may know, I just 
recently joined the SoftSide 
editorial staff. Being native to 
Missouri, 1 frequently make long 
distance telephone calls back home. 
This situation is great for Ma Bell, 
but not the greatest for the ol' 
bank account. 

This short routine was written 
out of necessity, and when used it 
really inspires you to shorten your 
phone calls. Especially after 
accumulating a toll of several 
dollars. 

When shown to Dave Albert, 
another editor accustomed to 
racking up substantial phone bills, 
he suggested 1 give it to you for 
your use. 

The following routine is very 
short, and will give fairly accurate 
readings on a Level II machine. 
For disk users, I suggest you delete 
the timing loop and get your time 
off the clock. This modification is 
relatively simple. 

Note the colons (:). They are used 
for fine tuning the wait loop for 
the first minute. 

This program has no copyright 
and can be considered in the J^* 
Public Domain. 



Variables 

Y$: Image statement for time 

display. 

X$: Image statement for per 

minute toll. 

Z$: Image statement for total 

accumulated toll. 

A$: Start Input. 

A: Timing loop. 

TM: Toll on first minute of call. 

CM: Toll for each minute after the 

first. 

ABT: Total toll during call. 

H: Hours. 

M: Minutes. 

S: Seconds. 





10 y»="«*.«;«":x«="w.«"jz$="$$«.«";cls:print"long distanc 
e hmer/cost display" :print!printjinput"enter cost for first min 
ute";tc;input"enter cost for all thereafter" ;cm:inpijt"<fi«ss ent 
er when ready to start>";a$:printei28,chr»(31) 

60 F0RA=lTO202 !NEXTA!S=S+1 :IFS>59THEN«=H+1 :S=0 tIFM>59THEf«=H+l :« 
=0!' ANYONE HAKING 21 HOUR CALLS SHOULDN'T H(«RY ABOUT COST. 

70 pRiNTe320,"YouR Titt SO FAR IS — > ";usingy$;h5h;s 

80 IFH<1ANOH<;1T}CNGOSUB900;GOT060 

90 AeT=TC+(((Hx60)iCI1)+((M-l)iai)+(CMi(S/60))) 

100 :::::::;::j;:;!:printm'»8,"your cost so far has been — > "; 
usingz*;abt:fiante576,"y0ur cost per hinute is — > ";usingx» 
;cii;goto60 

900 FORA=OT019:NEXTA:PRINTM18,"YOUR cost so far has BEEN ~>"! 
USINGZ«!(TC»(S/60))!PRINTe576,"FIRST MINUTE COST IS —> "! 

USINGX$;TC: RETURN -^ 

® 



1S0DD/lPrg?MD0N, /APPLE COMPLfTER COM- 
B4NY, M5.CU^,AUAt '/MOmEReoARD^ 
SPEAk^lNGr.^ 
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Programming Hints - S-80 

The following is a short BASIC 
program that performs a bit-by-bit 
test of the memory from the end of 
the BASIC program and variables, 
to the beginning of the stack. In 
case you have a machine language 
program in this area (dangerous!) 
or need it for some thing else, line 
30 restores the original bytes with a 
POKE N,A. If you wish a more 
thorough test of possible errors of 
interrelations of the bits within 
bytes, change 8=1 to B=0, and 
B=B*2 to B=B+1. This, however, is 
painfully slow. In non-disk 
systems, the test should start at 
around 17318. With 4K of 
memory, the test will end at 20383, 
or approximately 32671 with I6K. 

:0 OiCRRORGOTOaO ; F0RN=PEEK ( 16637 ) +PEEK ( 1663S ; »;256+33T0F'EEK(l66l6 

)+256»PEEK(l(i6l7)-'"i:A=PEEK(N::E:=l 

20 F'0i;EN,B:i,-P£EK(N)OeTHENPRINT"ERh-aA IN"N"AT"B:EfC'ELSEB=Eai2:G0 

^^-^ John S. Owens 

30 POKEN,A:PRMN,:REbLlnF^U ... , ,,. 

^j ^^j Virgmia Beach, VA 

' I 

33 



Keep Ahead of Microcomputer 

Developments 
With the Professional's Choice 



Interface Age is the most up-to-date 
source of microcomputer hardware 
and software advances. Whether 
you need to be informed for future 
purchases or to make comparisons, 
Interface Age should be #1 on your list. 

• It has more new product 

information than any other 
small systems publication 

• Indepth hardware and soft- 
ware reviews 

• Software and hardware ap- 
plications 

• Programming 

• Robotics 

• Book reviews 

• Business applications 

• Educational applications 

• Latest technologies 

• Tutorials 

Take advantage of this no-risk trial 
subscription offer. If for any reason 
you are not completely delighted with 
the first issue, we will refund your 
payment in full. Order your subscription 
to INTERFACE AGE now with this 
convenient coupon. 




NO-RISK TRIAL SUBSCRIPTION ORDER 

12 issues for $18.00. That's a 40% savings off tfie single copy 
price. And if you are not delighted with the first Issue, your pay- 
ment will be refunded in full. 



MAIL TODAY 

D One Yaar (12 issues) $18 (U.S. only) 
D Two Years (24 issues) $30 (U.S. only) 
LJ Canada/Meiico One Year $20 
LH Foreign Surface Mail One Year $35 
D Foreign Air Mail One Year $50 

Payment must accompany this order. 



L] Check enclosed 

Must be in U.S. 

funds drawn on 

U.S. banit 



D 



VISA' 



D 



a 



/^ 



_ Exp. Date _ 



Signature _ 



Name _ 
Street _ 
City , 



state 



Zip 



Make checl< or money order payable to: INTERFACE AGE Magazine 

PO Box 1234. DepI SSI. Cerritos, CA 90701 
A//OW 6-S weeks for delivery. 



34 



SoflSide FEBRUARY, 198! 



A Microsoft Adventure 

for the TRS-80 and Apple 

Here is the granddaddy of the computer Adventure games. Microsoft Adventure, 
from the people who wrote BASIC for personal computers, places you in "Colossal 
Cave," where both treasures and perils abound! Here you can find gold, silver, 
jewelry, magic items, and precious pottery. But you may also find threatening 
dwarves, trolls, large green snakes and a giant oyster. Meet the pirate and the 
computer wizard. See the volcano and sulphur lakes. 

As you become more skilled in overcoming obstacles and avoiding hazards, more 
regions of the cave will open up to you. Keep your wits about you and you may 
eventually become a Grand Master. Slip up and you may not become anything, if 
that. It all depends upon your ability and your ingenuity. 

When your adventure begins, you will find yourself outside of the cave. From 
there on in you must tell the computer what you wish to do by means of one- or two- 
word commands. Sometimes the computer might offer to help you with a small hint, 
but remember, there's no free lunch! You will have to do most of the work, including 
learning to use magic, yourself. Look for allies in unexpected places and you might 
surprise yourself. But above all, enjoy! 

S-80 version 32K disk 

$29.95 

Apple version 32K disk 

$29.95 
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DENIZENS OF 




BYTE HOTEL 




by Roger W. Robitaille 

First off, owners of the TRS-80- 
Model I and III should not confuse 
the (CLEAR key of the keyboard 
which cleans the screen of 
unwanted scribbling and the 
CLEAR statement. CLS will clean 
your screen just fine (in Applesoft, 
CLS = HOME). 

Stated simply, the CLEAR 
statement tells the computer just 
how many bytes of string space to 
put aside for all those names and 
addresses (or whatever) you plan to 
be working with during program 
operation. It's important to 
appreciate that this memory space 
will only be used for string 
information (combinations of 
letters, numbers and punctuation). 
If your program swells to the point 
that memory space is becoming a 
problem, you may find relief by 
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evaluating your string space 
requirements and reducing the 
amount of space allocated. 

It is only necessary to have 
enough clear space for 
PERTINENT string information. 
If your application is reusing your 
string variables, it will also reuse 
the string space allocated to that 
variable. 

It is interesting to note that 
Atari BASIC does not require the 
CLEARing of string space. Well, 
that's not quite true either. The 
Atari BASIC requires each string 
variable to declare both its name 
and its size — individually. In a 
sense, this amounts to the same 
thing. This approach covers the 
problem of setting aside bytes of 
RAM to house anticipated string 
information. In effect, the 
individual variable definitions 
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amount to a series of CLEAR 
statements. 

The key difference between the 
two methods is that under the 
CLEAR method, you have what 
amounts to a pool of string space 
which all string variables use 
according to need, versus the size 
declaration method of Atari 
BASIC interpreter which does not 
permit sharing of space. The 
implications of that difference 
become considerable when the 
problems of simulating string 
arrays under Atari BASIC are 
compared to slowing of the Central 
Processing Unit (CPU) itself due to 
string gathering procedures 
characteristic of the CLEAR 
method. 

Back to the TRS-80'" 
Applesoft (CLEAR) method of 
allocating RAM for string storage. 
Both methods of string storage 
require the use of pointer tables to 
keep track of where precisely a 
given piece of information will be 
found in that great ocean of RAM. 
The difference is that the actual 
location of string information, in 
terms of its literal address, will 
change under the CLEAR method, 
but will not change under the Atari 
method. 

For the sake of clarity let's try 
an analogy. Let's compare the 
process to the management of a 
500 room hotel. The hotel gets 
founded on LinelOO CLEAR500 
and instantly Hotel Byte is 
partitioned out of the great desert 
RAM, dedicated to the housing of 
transient string visitors. Shortly 
afterward, the great Application 
Program bequeathed to the 
wonderful, all-knowing Operator, 
guidance in how to conduct itself 
today. This request went through 
channels, of course. The request 
was carefully brought to the plain 
of video RAM for purification and 
benovelent interpretation of the 
Character Generator. No one really 
knows what happens from there. 
The Radio Frequency winds whisk 
away the message to the mysterious 
world of MONITOR. The 
emissaries of CPU quickly prepare 
the Prince of Q$, chartering him in 
the hall of Variable Table, whence 
they scurry to the Temple of 
Keyboard. There the gathering 

continued on next page 
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SPACE WAR 

You're in command in SPACE WAR! Destroy your opponent's 
ship by forcing him to coMide with the sun or to explode upon 
re-entry from hyperspace ... or challenge him to fight face to 
face with missile fire. You're in command of the speed and 
direction of your ship. You control the timing of your missiles. 
You select the game mode from five options, including 
Reverse Gravity, and the battle begins . . . Accelerate to place 
your shots — and escape into hyperspace before your 
opponent comes within range But be wary, he (or she!) may 
circle out of sight and reappear on the opposite side of the 
galaxy! (This is the classic MIT game redesigned especially for 
the Apple.) 



FROM 



seRsatioRal 
software 




SUPER INVASION 

SUPER INVASION is the original invasion game, with the 
original moon creatures and faster action than any other 
invasion game. Features superb high resolution graphics, nail- 
biting tension and hilarious antics by the moon creatures! Self- 
running "attract mode" of operation for easy learning and 

demonstration of the game. As good in every way as the famous Invaders arcade game. High speed action! 
Sound effects! Runs on the Apple II and the Apple II Plus 

Super Invasion ONLY 

32K, Apple II, Cassette $19.95 

Space War and Super Invasion Combined 

48K, Apple II, Disk $29.95 

AIR TRAFFIC CONTROLLER 

In AIR TRAFFIC CONTROLLER you assume responsibility for the safe flow of air traffic within a 15 x 25 
mile area up to 5,000 feet in altitude. During your shift as a controller in charge of this airspace, 26 aircraft 
become active and under your control lets and prop planes have to be guided to and from the two airports, 
navigational beacons and ten entry/exit fixes. The aircraft enter the controller's airspace at various altitudes 
and headings whether or not you are ready. 

16K, Apple II and Apple II + Cassette $9 95 

16K, S-80, Cassette $9.95 
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continued from previous page 

awaits a sign. Such haste is 
generaUy wasted as the Operator 
has much to ponder. Later — 
much later — a sign appears on 
the walls of the Temple of 
Keyboard: It's a "Y". But is that all 
— look to the (ENTER) wall (also 
known as<RETURN> in other 
lands), it signals: that's all!!! 

Even before the Applications 
Program is allowed to study the 
message, the visitor "Y" is brought 
to Hotel Byte and lodged in room 
1. Prince Q$ is informed where the 
visitor is lodged and how many 
members in the party (1). 

Philosophical note: 

In this world of computer 
electronics, everything is a 
memory. And as it is with 
memories, it can exist in 
many places and ultimately 
exist nowhere so the term 
impression (imp) to relay the 
travel of a value without 
requiring it to cease to be at 
its place of origin. 

Shortly after checking in. 
Applications Program searched the 
Variable Table for Prince Q$ and 
Q$ passed the information to AP 
where to find the imp (in Room 1 
of the Hotel Byte). The impression 
was made and compared against 
another "Y" in the Operator and 
things went on from there. 

Philosophical Note: 

For those of you into 
comparative societies, you 
should consider Prince Q$ 
and the resident of Rm. 1 of 
Byte Hotel as a married pair. 
One gives title and the other 
value. 

As the Applications Program 
proceeds through time and process, 
other royalty become needed and 
are inducted into the Variable 
Table and quickly married to 
residents of Hotel Byte. In fact. 
Prince Q$ is married several times 
and loses all track of his original 
spouse. But this is not a cruel 
world, and Prince QS's original 
imp, "Y", still resides in Rm. 1, 
and his second imp "N" in Rm. 
67, along with his present imp, 
"MAIL/ DAT" in Room 420 thru 
427. But the time has come when 
there is no room left in Byte Hotel 
and there is a new guest in the 
lobby. It's time for the ceremony of 
THE GATHERING OF STRING. 

Once the priests of String 
Gathering are summoned from the 



bowels of BASIC, all other 
processing is suspended. It is 
rumored that a few SYSTEM 
processes are continued, that be as 
it may. Applications Program is 
suspended — even communications 
from Operator are ignored! Only 
RESET or other such worldwide 
calamities can interfere with the 
Priests of String Gathering's sacred 
task. 

The whole purpose of the 
STRING GATHERING ritual is 
to cast out unpaired imps from the 
Byte Hotel. The ceremony can last 
a century or be over in a mere 
fortnight, it all depends on the 
total number of active members of 
the string ($) line of the Royal 
Family of variables. The process 
begins with the priests interviewing 
all the princes of string ($) to 
determine which has the imp 
lodged in the lowest room #. This 
imp is then moved to the highest 
possible room assignment. Then 
the process is repeated with the 
balance of the $ princes until all 
valid imps have been located and 
moved to adjoining blocks of 
suites. The final step in the ritual is 
alerting the hotel management to 
what is the next available room 
number. Naturally, throughout this 
ceremony, the princes of string 
have kept advised of any 
movements of their respective 
imps. 

Historical Comment: - Out 
of String Space 

It is seldom mentioned in 
polite company, however, 
occasionally the ceremony is 
unsuccessful. Even after the 
hotel is wrung of its 
stowaways, there is no room 
in the inn, so to speak. 
Operator is then informed of 
the Application Program's 
failure. The consequences 
are frequently severe. 
Termination of the 
millenium of process. 
Editing of the Application 
Program, even loss of 
DATA! 

For the sake of comparative 
sociology (in a manner of 
speaking), the Atari culture 
(BASIC) is much the same. 
Keyboard, Character Generator, 
Application Program, Operator, 
Variable Table, etc., are all present, 
however, the Byte Hotel is replaced 
with individual inns chartered to 
the various princes of string. When 
the size of the imp exceeds the 



capacity of the inn, it's a first- 
come, first-served system with the 
surplus left out in the cold. Under 
these circumstances, the Priests of 
String Gathering are unneeded. 

We have now covered the 
significance of the CLEAR 
statement, the problem it solves, 
and the problem it brings (string 
gathering). We have also covered 
how the Atari approach to the 
problem eliminates the need for 
CLEAR in its vocabulary. 

The Atari approach to storing 
string information is certainly less 
sophisticated than the CLEAR 
method. Being a smaller BASIC, 
(8K of ROM vs 12K & 16K), that 
can be expected. The primary 
effect of this simplicity is that the 
application program will tend to 
waste RAM space anticipating the 
largest possible use level of a given 
string variable. The burden of that 
judgment is placed on the 
programmer. If ten bytes of space 
were allocated to the variable and 
12 characters are entered, the last 
two are ignored. Sometimes that's 
not a serious problem — 
sometimes it spells disaster. 

CLEAR, on the other hand, will 
be more efficient in its need of 
RAM for string storage. 
Sometimes string gathering 
becomes a problem. This occurs 
when 500 or more discrete string 
variables are in play, (each element 
of a string array is essentially a 
separate variable). This problem 
can be compounded by insufficient 
CLEAR space for the amount of 
string manipulation going on in the 
application. For example, let's say 
you have 2000 names to sort. The 
string gathering procedure of that 
many string elements would take 
several minutes. Let's say that 90% 
of the string space is occupied with 
valid information. Even efficient 
code using a minimum string 
movement will trigger string 
gathering several times before 
completion of the sort. Poor 
programming technique, 
unappreciative of the string 
gathering situation, could mulitply 
the problem. Enlarging total string 
space by 20% would triple the 
available space for temporary use, 
reducing the number of string 
gathering interruptions by two- 
thirds. 

Not covered in this article are 
how numeric variable needs differ, 
string (and numeric) arrays, and a 
more complete picture of how the 
variable table is constructed. But -^ 
that is for another day. ^^ 
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SOUNDWARE 

SOUNDWARE adds a 
whole new dimension to 
your computer games 

Programs come 
alive with laser sounds, 
bounces, clicks, sirens, 
bird calls, music notes, 
tunes, and whatever else 
your imagination dreams 
up. Just slip in two AA 
batteries, plug into your 
computer, and have fun. 

SOUNDWARE 
SOFTWARE programs 
are also available to 
enhance the enjoyment 
of your computer. $29.95 



DISKETTE HEAD CLEANING KIT: 

3-M Scotch 7400 head cleaning kit is simple and easy to use. You simply 
saturate the write head cleaning fabric in the cleaning diskette with the 
cleaning solution, insert the diskette into the drive and turn it on. The 
rotating cleaning fabric alternately wipes the heads with the solution and 
the dry surface, removing contamination from the read write head. Each 
kit contains 2 cleaning diskettes which will allow you a total of 100 
cleanings. $29.95 

RECORDING HEAD TAPE ALIGNMENT KIT 

It consists of a template for locating the adjustment screw. An alignment 
tape is also included and a special screwdriver as well. The kit will allow 
you to align the heads to an industrial standard, ensuring consistent -„„^ 
loading results. *^-^^ 



DIGITAL CASSETTES 

Premium quality digital recording tapes. These 5-screw cassettes come 
packaged in boxes of 10. They are offered in 10 and 20 minute lengths. 

C-10 $6.95 + $1 

C-20 $7.95 + $1 

DISKETTES 

DYSAN: 

104/1 One-sided single density (one side certified error free at single 
density of 3979 bpr.) In track and between track testing is performed to 
ensure that the entire recording surface of every disk is 100% error-free. 
Box of 5 diskettes $29.95+ $1 

BASF: 

Box of 10, 5V4" Single Density $34.95 +$2.00 

Box of 10, 5Vi" Double Density $44.95 +$2.00 

Box of 10, 8" Double Density $49.95 +$2.00 

3-M SCOTCH 

Encased in a tough jacket which resists handling damages. 100% 
certified error-free performance. Low modulation provides better signal 
stability. 
Box of 10 $39.95 + $2 



FLOPPY DISK SAVER 

PREVENTS: 

Computer drive's clamping hub 
from tearing disk's center hole; 

Coating removal, scuffing, 
dimpling; 

Data loss caused by improper 
rotation. 
$14.95 Refills $7.95 



FLOPPY ARMOR: 

Prevents damages to your 
diskettes. These are high 
density, ultra lightweight 
polymer shipping envelops. 
Pack of 5 $4.95 + $1 




^ 
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ALL NEW VERSION! 

by Lance Micklus 
Adventure International 

Now with Sound Capability 
and Increased Speed of 

Execution. 

You are in command of tfie 

starship Enterprise and her 

complement of 371 officers 

and crew. You must enter 

and explore the Omega VI 

region of the galaxy with its 

192 quadrants containing star 

systems and planets (a few of 

which are habitable). 

Astronomical hazards such as 

pulsars, Class stars, and 

black holes are known to be 

present in the region. Klingon 

battle cruisers are also 

present, so the utmost care is 

needed. 

Star Trek III. 5 includes: 

playboard 8 by 3 by 3 

quadrants: weapons system 

of Phasers and Photon 
Torpedos: Warp and Impulse 
power systems: Science and 
Ship's computers; Long and 

Short Range sensors; 
Damage Control and Status 
reports; and 20 Klingon battle 
cruisers, and 100 stars, 
planets, black holes, and 
pulsars. 
Available on Digital 
Cassette for Level II, 
16K $14.95 
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Galactic 
trtlogq 



by Douglas Carlston 




Move up to grand 
\ strategy! Fight your wars 
^ as a general, not a pilotl 



Galactic Empire — As commander of Galactic's 
Imperial Forces, you must conquerthe worlds of the 
galactic system. Deploy armies, raise taxes, gather 
intelligence, manage resources. 

Galactic Trader — You are an ex-soldler who must 
scramble for a living as an intergalactic tramp 
freighter. Outwit the locals at bartering, struggle 
with the fuel cartel, and outmaneuver the big trading 
monopolies as you seek your fortune. 

Galactic Revolution — The emperor is becoming 
unpopular. Your own popularity Is a threat, and he Is 
seeking to kill you. Turnabout is fair play, so you 
start a revolution to unseat him. 

Each game... 16K Level II Cassette $14.95 

Special!! — All three on Disk (32K) $39.95 



TS€JHPi^lD€ 



6 South St., Milford, N.H. 03055 
ORDER TOLL FREE: 1-800-258-1790 
(In NH call 673-5144) 
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ANDROID NIM 

The newest version of TRS-80's first animated graptiics game — An- 
droid NiM — now with more animation and sound! 
16K, S-80, Level II, Cassette, Machine Language $14.95 

BEE WARY 

This fast-paced real time action game is a contest between a Bee 
operated by the player and a Spider operated by the computer. 
Machine language subroutines, but loads as Level II for easy opera- 
tion. 16K, S-80, Cassette $14.95 

SNAKE EGGS 

Here is a computerized reptilian version of 21 complete with arrogant 
snakes and appropriate sound. 16K, S-80, Level II, Cassette . . $14.95 

LIFE TWO 

Two in one: Game of Life, at an astounding 100 generations a minute, 

plus Battle of Life with animated creatures and sound. 

16K, S-80, Level II, Cassette $14.95 

DUEL-N-DROIDS 

You are the Fencing Master and all you need to do is train your An- 
droid by making him duel the machine^'s androids. After he is train- 
ed, enter him in the Tournament and sit back and enjoy the fun. 
Features included in this game are: sound effects, extensive graphic 
displays & multiple playing levels. 

16K, S-80, Level II, Cassette $14.95 

S-80, Disk $20.95 

TSeRPRDSIIX 

6 South St.Milford, NH 03055 (603)673-5144 
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WES International 



T SHORT lets you type Level 
II and/or Disk BASIC more 
quickly and accurately than ever 
before. You are provided with 
31 programming statement keys 
(by means of the Shift control) 
w/hich permit you to enter com- 
mands with a single keystroke. 
KUSTOM* Key allows you to 
enter any command up to 64 
characters at a single keystroke, 
and can be changed at anytime. 

S-80 Level II 16K $9.95 

LI 
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MINI GOLF 




by Mitch Voth 

Mini Golf is an S- 80 program 
requiring at least 16K 
of RAM. 

Remember the frustration you 
underwent at your first game of 
miniature golf ? Well for those of 
you who exist on frustration, here's 
the program you've dreamed 
about. 

"Mini Golf" is an excellent 
representation of a nine-hole 
miniature golf course, complete 
with banked walls and sound. The 



program will accomodate up to ten 
players for even more 
FUNstration!!! 

To play "Mini Golf" you control 
the angle of your putter by 
pressing the left and right arrows. 

Then when you feel the angle is 
correct, press a number from one 
to nine indicating how hard you 
wish to stroke the ball, (one being 
a light tap and nine being a hard 
hit). 

The game also has very simple 
sound for you audio nuts!!! 



Variable Listing: 
A: Misc. logic. 

Bl, B2, CI, C2, Dl, D2: Variables 
used for moving the ball. 
HH: How hard the ball is hit. 
HM: Horizontal movement. 
Ml, M2: Movement indicators (for 
calculating angles). 
NP: Number of players. 
P: Par for each hole. 
PT: Players turn. 
S(l-lO): Score for each player. 
S: Number of strokes per hole. 
VM: Vertical movement. 
Z$(l-10): Player nameS. 



1 ' BY NnCH WTH 

2 ' I (ffMIATURE GOlf x 

3 ' TRS-81) 16K 

1 ' SEPTDKR 1980 

Lines 10-36! Initialize variables and input nunber of planters 
and pla^r naMes> 

10 CLS:CLEflR20fl:OEFIMTA-H:DEFSTRZ:PRINTCHR$(23):PRINTei8,"TRS-80 

9 H0LE";:PRINTe82,"MINIATlJRE GOLF" 
30 PRINTMOO, "NUMBER OF PLAYERS"', !INPUTNP:iFH>>10,10aSEPRINTMO 
0,CHR$(30);:FORA=1TONP:PRINTMOO, "PLAYER t"5A;:iNPUn(A):FRINTM 

oo,chr$(30);:next:cls:goto30o 

Line ^O! Score subroutine. 

10 (lS:PRINTCHR*(Z3)tPRINTeiZ,"SCORE:":F0RA=lT0«>!PRINTZ(A),S(A) 
•.NEXT:FORA=lTO1000:NEXTtCLS:RETURN 

Lines 50-70! Input routine to get putter novewent and 
nuneric input for hitting ball. 

50 Z=INKEY$!IFZO"",IFASC(Z)<58ANDASC(Z)M8,HH=VAL(Z)I10!POKEHP, 

'»6!HH=0!W=0!FA=1,RESET<C1,CZ):RESET(C1+1,C2)!GOT0200ELSESET(C1 

,C2)!SET(Cl+l,C2)!GOTOZ0fl 

60 T=0!IR<>"",ffASC(Z)=8,CP=CP+l!FCP=17,CP=l!FA=l,RESET(Cl,C2 

)!RESET(Cl+l,C2)!GOTO100aSESET<Cl,C2)!SET<Cl+l,C2)!GOTO100ELSEI 

FA=1 ,RESET(C1 ,C2) !RESET(C1+1,C2) !GOTO100aSESET(Cl ,C2) !SET(C1+1 , 

C2)!GOTO100 

70 IFZO"",IFASC(Z)=9,CP=CP-l!ffCP=0,CP=16!IFA=l,RESET(Cl,C2)!RE 

SET(Cl+l,CZ)!GOTO100aSESET(Cl,C2)!SET(Cl+l,C2)!GOTO100ELSEIFA=l 

,RESET(Cl,C2)!RESET(Cl+l,C2)!GOTG100aSESET(Cl,C2)!SET(Cl+l,C2)! 

GOTOIOO 

80 GOTOSO 

90 POKEHP.'»6:SET(B1,K)!SET(B1+1,B2)!IFPOINT(C1,C2)=-1,A=0!RESET 

(CI ,C2) !RESET(C1+1 ,C2) !GOT050ELSESET(C1 ,C2) !SET<C1+1 ,C2) ! A=l !GOT 

O50 

Lines 100-116. Routine to alter ball or putter position 
values. 

180 ONCPGOT0101,182,103401405.106,107,108,109»110>111»112,113> 
111,115,116 

101 C1=B1!C2=82+Z!N1=0!«2=-1!GOT090 

102 Cl=81+2!Hl=-r.G0T09fl 

103 Cl=ei+1!C2=6Z+2!Ml=-2!hZ=-l!GGT090 
101 C2=B2+1!H2=-.5!GOT090 



105 C2=e2!H2=0:GOT090 

106 C2=82-l!«2=.5!G0T09fl 

107 Cl=81+1!C2=e2-2!Ml=-2!H2=l!GOT090 

108 C1=81+2!H1=-1IGOT090 

109 Cl=81!Hl=0!GOTO90 

110 Cl=Bl-Z!Ml=l!GOTO90 

111 Cl=81-1!C2=e2-2!Hl=2!M2=l!GOT09fl 

112 C2=B2-l!«2=.5!GOTO90 

113 C2=82!M2=fl!GOTO90 
111 C2=B2+1!«2=-.5!GOT090 

115 C1=B1-1!C2=B2+Z!H1=2!«Z=-1 !GOTO90 

116 C1=81-2!M1=1!GOT090 

Line 150. Hole in one routine. 

150 IFS=l,PRINTeiS3,"A HOLE IN 0NE!!'';:FGmFlTDlia:QUT2S5,i:0UT2 
55,t:fEXT:PRINTei53,OI»(30);:RETinELSEPRIKTei19.''THAT TOOK YOU 
" JS J "STROKES" ; !FORA=lT0200fl !NEXT!PRINTei19 ,CHR$<3J ) J JRETIUN 

Lines 200-205! Routine to calculate reflection angles. 
2IODl:«i:D2=e2:RESET(Bl,BZ):RESET(Bl+l,B2):F(ABS(Hl)=l/M)HH=l) 
ORABSOIl )=2,D1=81+2ISGN(H1> :HH=OELSE)lt=l 
205 T=T+l!IFT>1,RC=2!REnjRN 

Line 210! Check for hole. 
210 IFPOINT(D1,B2)=-1,RC=0!RETIIRNELSESET(DUB2)!SET(D1+1,B2)!61= 
Dl!IFPEEK(»>)O16,IFPEEK(H»)=110,S(PT)=S(PT)+S-P!RC=l!G0SIJB15liR 
ETUBtLSEPOKEH',16 

220 0UT255,1!OUT2S5,0!RESET(B1,B2)!RESET(6U1,B2):F(ABS(H2)=.SA 
NDVH=1)0RABS(H2)=1,D2=B24SGN(H2):UH=0ELSBM=1 
230 IFPOINT(Bl,D2)=-l,RC=0!RETURNELSESET(Bl,D2)!SET(Bm,D2):B2» 
D2:iFPEEK(*)O16,IFPEEK(H>)=110,S(PT)=S(PT)+S-P!RC=l!G0SlB15l!R 
ETll»eLSEP«<EHP,16 

210 t=o:w=hh-i:ifhh<o,rc=2:retijrnelse28d 

Line 300! Display score. 

300 F0RA=50TO79!SET(A,11)!SET(A,9)!NEXT!FGRA=9TO115SET(50,A)58ET 

(51,A)!SET(78,A)!SET(79,A)!NEXT!HP=15618!PRINTe25,"HDt£* 1 PA 

R 2"J!P=2!FORPT=lTONP!S=l!PRINTe91,CHR$(30)}!PRINTe91,Z(PT);"'S 

TURN";!Bl=RND(ll>i2+52!B2=1i:SET(Bl,62)!SET(Bl+l,B2)!P0KEHP,16: 

CP=1 

305 GOSUBIOO 

310 IFRC=2,S=S+1!CP=11GOSUB100!GOT0310 
320 IFRC=l,t€XTPT!GOTO10fl 
325 HH=t*1-10!IFHH<2,HH=2 

330 IFDl=500RDl=78,Ml=-«l!GOSUB200!GOTG310aSEM2=-+l2!GOSUB200JGO 
TO310 
Lines 100-1120! Routines for displa^Sig individual holes 
on screen. 
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100 gosl]b10:fora=50to79:set(a,'m):set(a+22,9):next:fora=z0tim3:s 
et(5fl,a):set(51,a)jset(78,a);set(79,a);next!set(78,19):set(79,19 
)'.fora=78toioi:set(a,18):next:fora=iotoi7:set<ioo,a):set(ioi,a): 

NEXT'.F0R{f521Q71'.SET(A,'»5.5-A/2) :NEXT:rt>=15663 

105 PRINTK5,"HGL£ * 2 PAR 2";:P=ZtFQRPT=lTONP5S=liPRINTe91,CH 
M(30);:PRIMTe91,Z(PT);"'STlJRN";:Bl=RM)(ll)i2+52:B2=1i:POKEH>,'» 

6:cp=i:set(bi,b2)!set(bi+i,b2):gosubioo 

120 IFRC=2,S=S+i:CP=l{GOSUBlflO:GOT(M2fl 

130 IFRC=l,fCXTPT:GOTO500 

135 HH=}tM0:iFHH<2AMDHH>-6,HB=2 

HO IFD2=90RD2=1K1R(D2=18AND01>79) ,K2=-M2:GOSUB200:GOTO120aSEIF 
Dl=5flOW)l=78ORDl=100,Hl=-«i:GOSUB200:GOTO120ELSEA=«i:Hl=-«Zi2:K2 
=-A/2:GOSUB200:GOT0120 

500 gosi)bio;fqra=20toi3:set(22,a):set(23,a):set(50,a):set(5i,A): 
set(78,a)tset(79,a):next:f0ra=22t079:set(a,11):next:f0ra=11t057: 

SET(A,9):NEXT:PRINTM09,CH»(191)J!FORA=10TO19!SET(63-Ai2,A):SET 

(62-Ai2,A) JSET<38+AX2,A) :SET(39+Ai2,A) :ttXTtH>=16210 

510 PRIMTK5,"H0LE # 3 PAR 2";:P=2:F0RPT=lT0NP:S=i:PRINTe91,CH 

R«<30)}JPRINTe91,Z(PT)J"'STURN"!:Bl=RND<ll)i2+52JB2=1i:SET(Bl,B 

2)!SET(6Ul,B2):PtlKOf,16:CP=i:GOSUB100 

520 ifrc=2,s=s+i:cp=i:gosubioo:goto520 

530 IFRC=1,>EXTPT;GOT0600 

510 HH4«-105IFW<2W««Hi,HH=2 

550 IFDZ=90RD2=11,H2=-«Z:GOSUB200:GOT0520ELSE[FDl=220RDl=5flORDl= 

78,«l=-«i:GOSUB2fl0:GOTO520aSEIFDl<50,A=«i:Ml=-«2i2:HZ=-A/2:GOSU 

B200 :GOT0520ELSEA=H1 :H1=H2i2:H2=A/2:GOSUBZ00 :GOT0520 

600 gosubio:fora=17toii:set(50,a):set(51,a):set(78>a):set(79»a): 
«xt:f0ra=17t029:set(98,a):set(99,a):set(116,a)!set(117,a)5fcxt: 
ftra=66t010i:set(a,9):nextjfi]ra=52t077:set<a,11):next:fcra=91t01 
01!set(a,37) 5nexttfqra=80t097:set(a,17) siot 

610 F0RA=10TO16:SET<85-2iA,A):SET(81-2iA,A):SET(83+A«2,A)tSET(82 
+Ai2,A):SET(60+Ai2,A+20)JSET(61+Ai2,A+2fl)JSET(131-A»2,A+20):SET( 
135-2iA,Af20):NEXT!HP=15852:PRINTK5,"HQLE » 1 PAR 3"}tP=3:F0R 
PT=lTONP:S=i:PRIMTe91,CHR«(30);:PRINTe91,Z(PT);"'S TURN"; 

615 CP=1 •.B1=RW)( 11 )«2+52:B2=11 :SET<B1 ,B2) JSET(B1+1 ,B2) JGOSUBIOO 

620 IFRC=Z,S=S+i;CP=i:GOSUB10fl:GOT0620 

630 IFRC=1,MEXTPT;GOT0700 

610 HH=m-10:iFHH<ZANDHH>-6,m=Z 

650 ffD2=9ORD2=1K]R(D2=37tf«)l>90)OR(D2=17ANDOl>70«m)l<10fl),h2= 

-H2:GOSUB200:GOT0620ELSEIFDl=SOORDl=7aGRDl=98GRDl=116,Hl=-Hi:GOS 

UeZQ0'.GOTO620ELSEIF(Dl>80AM)D2<20)OR(D2>25AM)Dl<96),A=Hi:Hl=H2x2 

:N2=A/2:GOSIJB200:GOTO620ELSEA=«1!M1=-M2i2:«2=-A/2 

661 GOSIB200:GOT0620 

700 GOSlB10;FORA=19TO11}SET(78,A):SET(79,A):>Ea:FORA=5flTO77;SET 
(A,11):>EXT:FORA=32r013:SET(5fl,A):SET(51,A):NEXT:FORA=12T0195SET 
(A,32):NEXT:FORfr=19T022JSET(22,A):SET(23,A):>EXT:FORA=12T059:SET 
<A,9) :tCXT5F0RA=9T018!SET(12+Ai2,A) :SET(13+Ai2,A) 

710 SET(59-Ai2,A) ;SET(58-Ai2,A) SSET(Ax2+1,A+11) :SET(Ai2+5,Atl1) ', 

SET(10+Ai2,A+11):SET(11+Ai2,Atl1):NEXT{HP=15827!PraNTK5,"HOLE # 

5 PAR 2";!P=ZJFORPT=lTONP:S=i:PRD(Te91,CHR«(30);:PK[NTe91,Z(P 

T);"'s tijrn";:bi=rnd(ii)«2+52:b2=ii;set(bi,b2):set(bi+i,b2) 
715 i:p=i:gosubioo 

720 ifrc=2,s=s+i:cp=15gosub100jgoto720 

730 IFRC=1,NEXTPT:GOT0800 

710 HH=tf4-10:iFHH<2AM]ttC>-6,HH=2 

750 IFD2=9(]RO2=11(]R(D2=31MI»l<50),N2=-fQ:GOSUB200:GOTO720ELSEIF 
D1=220R01=50QRD1=78,H1=-(11 :GGSUB200 :GOTO720aSEIFDl<50AMDD2<20 , A 
^tt'.m=-«2«2;«2=-^2:GOSUB200JGOTO720ELSEA=Mi:Ml=«2i2;H2=A/2JGOS 
IBZOO:GOT0720 

800 GOaB10:F0RA=9TO11!SET(50,A):SET(51,A):NEXT:FORA=32TO11JSET( 
78,A);SET(79,A);I€XTJFORA=52T077:SET(A,11):NEXT:FORAf52T0111:SET 
(A,9)JNEXT:F0RA=9T023:SET(112,A):SET(113,A)JfEXT:FGRA=80TO95!SET 

(A,3Z) :>E(T:F0RA=18T023tSET(7fl,A) :SET(71,A) JSET(90,A-6) 



810 SET(91,A-6)J1CXT:FGRA=21T032:SET(116-Ax2,A):SET(117-Ai2,A)JS 
ET(158-Ai2,A):SET(159-Ai2,A);NEXT:HP=15838:PRINTK5,"H(1LE » 6 p 
AR 3";;P=3!FORPT=lTONP:S=l!PRD(Te91,CHR«(30);:PRIKre91,Z(PT);"'S 
TURN" ; :CP=1 JB1=«ND( 11 )i2+52:B2=11 tSET(Bl,B2) :SET(B1+I ,BZ) 

815 gosubioo 

820 ifrc=2,s=s+ijcp=i:gosubioo:goto820 

830 IFRC=l,NEXTPTJGOTO900 

810 HH=HH-10:iFHH<2ANDHH>-6,HH=2 

850 IFDZ=90RD2=110R(D2=32AM»1>79),M2=-«2;GOSUB200:GOT0820ELSEIF 

Dl=500RDl=780RDl=1120R01=9flOR(Dl=70WM)Z<23),m=-«l}GOaJB200JGOT 

O820aSEA=»11JMl=-«2i2:M2=-A/2:GOSUB200:GOTO820 

900 gosub10:fqra=30to79tset(a,11):next:fgra=23to13jset(78,a):set 
(79,a):next:fora=3oto5i:set(a,30):set(a,9);next:fora=20to33:set( 

8,A):SET(9,A):SET<50,A+ll);SET(51,A+ll):NEXT:FORA=lflT029:SET(A,2 

9+A/Z) :SET( A,Z1.5-A/2) :NEXT:FORA=50T079 

910 SET(A,A/2-16) :NEXT:FORA=50T067{SET(A,A/Z-9)JNEXT:FORA=50T059 

JSET(A,A/2-l){NEXT:HP=16150:PRINTe25,"HOLE ♦ 7 PAR 3";:P=3:FQRP 
T=lTONP!S=lJPRINTe9i,CHR»(30);;PRINT891,Z(PT);"'STURN"{!Bl=«ND< 
ll)i2+52:B2=1i:SET(Bl,B2)5SET(Bl+l,B2):CP=i:GOSUBlflO 

920 ifrc=2,s=s+i;cp=i:gosubioo:goto920 
930 frc=i,nextpt:gotoiooo 

910 HH=(#M0:iFrtK2tf«)HH>-6,HH=2 

950 IFD1=780RD1=80R(D1=50M)D2>30) ,H1=-H1:GOSUB200:GOT0920ELSEIF 

DZ=300RD2=90RD2=11,H2=-«2:GOSUB200tGOT0920ELSEIFDl<10»O02<21,A= 

Mi:Ml=-«2i2JM2=-A/25GOSUB200:GOT092flaSEA=M15«l=«2i2:H2=A/2:GOaj 

B200:GOT0920 

1000 GOSUB10:F0RA=5flTO79:SET(A,11):SET(A,9):NEXTJFQRA=33TO13:SET 
(50,A)!SET(51,A):SET(78,A):SET(79,A):NEXT:FORA=18T021:SET(32,A): 
SET(33,A):SET(96,A):SET(97,A):SET(56,A+l);SET(57,Atl):SET(72,Atl 
):SET(73,A+1)JNEXT!FQRA=31T0195SET(A,A/2+8) 

lOlfl SET(A,31.5-A/2)JSET<A+16,19.5-A/2):SET(A+16,A/2-7):NEXT:F0R 

A=56T061:SET(A,A/2-2):SET(A+9,58-^2):NEXT:FORA=52T057:SET(A,A/2 

-10)!SET(A+20,11.5-A/2):HEXT:«>=15901!PRINTe25,"HOLE * 8 PAR 3" 

j:P=3:FORPT=lTGNP!S=i:PRINTe91,CHR$(30);:Bl=«ND(ll)«2+52 

1015 PRINTe91,Z(PT);"'S TURN";jB2=1i:SET(Bl,B2):SET(Bl+l,B2);CP= 

i;gosiibioo 

1020 IFRC=2,S=S-M:CP=1:G05UB100!GOT01020 

1030 IFRC=l,NEXTPT;GOT0110fl 

1010 HH=HH-10;IFHH<2ANDHH>-6,I«=2 

1050 ffD2=110RD2=9,MZ=-«25GOSUB200:GOT01020ELSEIF01=320RDl=960RD 

1=7ZORD1=560RD1=500RD1=78,«1=-«1!GOSLB200:GOT01020ELSEIF(01<7WW 

D01>63)OR(Dl>70AM)02>20)OR(Dl<60AND02<20),fr=Ni:Ml=-«2x2:N2=-A/2: 

GOSUB200:GOTO1020aSEA=i1i:Hl=H2i2:M2=A/2:GOSUB200 

1060 GOT01020 

1100 GOSUB10JFGRA=31TO95:SET(A,9):tCXT5F0RA=50TO79:SET(A,11):NEX 
T JF0RA=33TO13 tSET<50 , A) :SET(51 ,A) :SET(78,A) :SET(79,A) :tCXT:FORA= 
10TO33:SET(31,A):SET(35,A):SET(91,A):SET(95,A):NE)a:FORA=36TO19: 
SET(A,33) :SET( A+11,33) !NEXT:F0RA=18T063 

1110 SET(A,A/2-1):SET(A+18,51.5-A/2):NEXT!F0W^=56T061:SET(A,19.5 
-A/2):SET(A+12,A/2-9):NEXT:HP=159fl15PRINTe25,"HULE * 9 PAR 1"?: 
P=1JFORPT=lTOM>:PRINT891,CHR»(30);5PRINTe91,Z(FT);"'S TURN"j:S=l 
:Bl=RND(ll)i2f52:B2=1i:SET(Bl,62):SET(Bl+l,B2):CP=i;GOSUB100 

1120 frc=2,s=S'^i:cp=i:gosubioo:gotoii20 

1130 ffRC=l,NEXTPT:GOTO2000 
1110 HH=HH-10:iFHK2»«)HH>-6,HH=2 

1 150 FD2=9GRD2=330RD2=11 ,H2=-H2 :GOSUB200 :G0T0112DaSEIFDl=3K]RD 
1=91{1R<D1=78AND02>30)OR(D1=50WO)2>30),H1=-«1:GOSUB200:GOT01120E 
LSEF(D1>61««)02>22)GR(D1<61/M)02<22),A=«1:H1=HC«2:H2=-A/2:G0SU 
8200 :GOTO1120aSEA=i11 :N1=H2i2!N2=A/2:GOSUB200 
1160 GOTO1120 

Line 2000! End qane routinet 

2000 cls{printch»(23);:pr[mtko,"fi(w. saiREj";FORA=ir»p.'PRiwr ■' 

Z(A),S(A):NEXT:PRINTe900,"PLAY AGAIN (Y/N)"!:iNPUTZ:iFZ="r,10 
continued on next page 
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continued from previous page 

In the Atari version of 
"Minigolf", the following strings 
should be typed using the Atari 
logo key to produce reverse video: 
Line 10: "ATARI 9 HOLE", and 
"MINIATURE GOLF" 
Line 40: "SCORE:" 
Line 2000: "FINAL SCORE:" 
Line 2040: "GOOD BYE." 

The message such as "HOLE 
#1" and "PAR 2" should be typed 
using reverse video for 
all nine holes. 

A special Atari note: The keys 
used to aim the ball in this game 
are the " + " and the "♦" keys 
which have the small arrows on 
their upper left hand corners. 



1 REM I MINIATURE GOLF 

2 REM X ORIGINAL PROGRtfl BY 

3 REM X BY MHCH VOTH 

1 REM I ATARI TRANSLAHON BY 

5 REM X RICH BOUCHARD 

6 REM 

8 OPEN *1,'»,0,"K:" 

9 DIM Zi(100)»A$(30),S(10) 

10 GRtftffCS OtPRINT " ATARI 
9-HOLE" '.PRINT " MINIATURE 

GOLF" 

20 FOR A=l TO 100JZt(A)=" "IVEX^ A 

25 FOR A=i TO io:s(A)=o:next a 

30 PRINT JPRINT {PRINT "NWeER OF PLAY 

ers";:bput np:f np>io then lo 

32 FOR A=l TO NP:S(NP)=0!PRINT "PLAYER 
♦"{Ar.INPUT A$:iF LEN(A$)>lfl THEN A*= 

A$(l,10) 

33 f len(a»)=0 then a$=" " 

31 z«(axio-len(a$)+i,axio)=a$;next a:g 

RAPHECS 5:P0KE 752,1 
38 SETCXOR 0,0,0;SETCOLOR 1,3,10JGOTO 
300 
10 GRtfWCS OJPOKE 752,1:PRINT " 

score: "{PRINT {FOR A=i TO np:print Z 

$(AxlO-9,AxlO),S(A){iCn A 

12 PRINT {PRINT "HH ANY KEY" {GET *1,A 

{GRAPHICS 5{P0KE 752,1{SETCOLOR 0,0, 0{ 

^COLOR 1,3,10{RETURN 

50 GET *1,Z{IF Z<58 AND IH8 THEN HH=( 

Z-18)xll{HM=fl{y«=0{COLOR A{PLOT C1,C2{ 

GOTO 200 

60 T=fl{F Z013 THEN 70 

62 CP=CP+1{IF CP=17 THEN CP=1 

61 COLOR A{PLOT Cl,C2{GOT0 100 

70 F Z012 THEN 50 

72 CP=CP-1{IF CF-0 WEH CP=16 

71 COLOR A{PLOT C1,C2{G0T0 100 

90 COLOR r.PLOT HP1,HP2{PL0T HP1+1,HP2 
92 COLOR 3{PL0T B1,B2{LXAF C1,C2,A{I 
F PtOl TVCN COLOR 2{PL0T C1,C2{G0T0 50 

91 COLOR 3{PL0T C1,C2{G0T0 50 

100 GOTO CP+lflO 

101 C1=81{C2=82+2{M1=0{M2=-1{GOTO 90 

102 C1=81+1{M1=-1{G0T0 90 

103 Cl=ei+2{C2=B2+2{M1=-2{G0T0 90 
101 C2=82+l{M2=-n.5{G0T0 90 

105 C2=f2{M2=0{GOTO 90 



106 C2=e2-l{M2=0.5{GOT0 90 

107 C1=B1+2:C2=82-2{M1=-2{M2=1{G0T0 90 

108 C1=61+1{H1=-1{G0T0 90 

109 C1=81{M1=0{GOTO 90 

110 C1=81-1{M1=1{G0T0 90 

111 Cl=ei-Z{C2=B2-2{M1=2:M2=1{G0T0 90 

112 C2=e2-1{M2=0.5:GOTO 90 

113 C2=e2{M2=0{GOTO 90 

111 C2=B2+1{M2=-0.5{GOTO 90 

115 C1=61-2{C2=62+2{M1=2{M2=-1{G0T0 90 

116 C1=B1-1{M1=1{GOTO 90 

150 COLOR 3{PL0T H>1,HP2{PL0T HP1+1,HP 
2{F S>1 THEN 156 

152 PRINT "A HOLE IN »€! ! ! ! ! !"{FOR A= 
1 TCr5{F0R B=l TO 59ISETC0niri,B/1+l, 
11{S01M) 0,B,0,10{NEXT B{NEXT A 

151 SETCXOR 1,3,10{SOUND 0,0,0,0{GOTO 
158 

156 PRINT "THAT TOa< YOU "{SJ" STROKES 
"{FOR A=l TO 50{SOUM) 0,A,10,10{NEXT A 
{FOR A=19 TO 2 STCP -1 

157 SOUND 0,A,10,10{NEXT A{SOUND 0,0,0 
tO 

158 FOR A=l TO 700{NEXT A{PRINT Cm%{2 
8)}" 

"{PRINT CW»(28);CHR*(28);{RETUW( 

200 Dl=61{D2=e2{C0L0R 2:PL0T B1,B2{F 
(AeS(Ml)=l Al«) HM=1) (K ABS(M1)=2 THEN 

201 
202 H«=1{G0T0 210 

201 Dl=eH-SGN(Ml){HM=fl 

205 T=T+1{F T>1 THEN RC=2{RErURN 

210 SOUM) 0,200, 10, 10 {SOUND 0,0,0,0{LO 
GATE D1,B2,A{F A=0 THEN RC=0{RETI«N 

211 IF (DlOHPl AND D101ff>l+1) OR D20 
HP2 THEN IF A=l THEN RC=0 {RETURN 

212 COLOR 3{PL0T D1,E2{B1=D1{L0CAF HP 
1,HP2,A{F AOl THEN S(PT)=S(PT)+S-P{R 
C=1{G0SUB 150 {RETURN 

211 LOCATE HP1+1,HP2,A{IF AOl THEN S( 
PT)=S(PT)+S-P{RC=l{GOSUe 150{RETURN 
220 COLOR 2{PL0T B1,E2{IF (ABS(M2)=0.5 

AND W1=l) OR ABS(M2)=1 TICN D2=B2+SGN 
(M2){'^0{GOTO 230 
222 m=l 

230 LOCATE B1,D2,A{IF A=fl TICN RC=0{RE 
TURN 

231 F (DlOHPl AND DlOlPl+1) OR D20 
HP2 THEN F A=l THEN RC=0{RETURN 

232 COLOR 3{PL0T B1,D2{B2=D2{L0CATE HP 
1,HP2,A{IF A=3 THEN S(PT)=S(PT)+S-P{RC 
=1{G0SUB 150 {RETURN 

231 LOCATE HP1+1,HP2,A{IF A=3 THEN S(P 
T)=S(PT)+S-P{RC=1{G0SIB 1501RETURN 
210 T=0{ttt=HH-l{IF HH<fl THEN RC=2{RETU 
RN 

212 GOTO 200 

300 CXOR 2{F0R A=3 TO 36{PL0T 27,A{DR 
AWTO 15,A{NEXT A{PK[NT " HOLE * 1 P 
m 2" 

302 P=2{F0R PT=1 TO NP{S=1{PRINT Z*(PT 
xlO-9,PTxlO){"'S TURN"{Bl=INT(ra«)(0)xl 
1+32){B2=31{CP=1 

301 HP1=35{HP2=6 
305 GOSUB 100 

310 IF RC=2 THEN S=S+1{CP=1{G0SUB 10fl{ 
GOTO 310 



320 F RC=1 THEN NEXT PTtOOTO ^00 

325 GOSUB 3000 

330 F Dl=26 OR Dl=16 TICN M1=-H1{G0SU 

B 200 {GOTO 310 

332 M2=-M2{G0SIB 200 {GOTO 310 

100 GOSUB 10{COLOR 2{F0R A=13 TO 36:PL 
OT 27,A{DRAMT0 15,A{NEXT A{FOR A=0 TO 
lUPLOT 27+A,13-A{DRAHT0 7fl,13-A 

102 NEXT A{PRINT " HOLE » 2 PAR 2"{ 
FOR PT=1 TO NP{S=1 {PRINT Z*(PTxlfl-9,PT 
xlO);"'S TURN" 

101 tf'l=60{HP2=8:Bl=INT(RND(0)xll+32){ 
B2=31 

105 CP=1{G0SUB 100 

120 F RC=2 THEN S=S+1{CP=1 {GOSUB lOO: 
GOTO 120 

130 IF RC=1 THEN NEXT PTIGOTO 500 
135 GOSUB 3000 

HO IF D2=l OR D2=37 OR (D2=11 AND Dl> 
15) THEN M2=-M2{G0SUB 200 {GOTO 120 
112 F Dl<27 OR Dl=16 OR Dl=71 THEN Ml 
=-Ml{GOSlB 200 {GOTO 120 
HI A=M1{M1=-M2X2{M2=-A/2{G0SUB 200{GO 
TO 120 

500 GOSUB 10{COLOR 2{F0R A=13 TO 36{PL 
OT 17,A{DRAHT0 55,A{fCXr A{FOR A=0 TO 
11{PL0T 17+A,13-A{DRAHT0 55-A,13-A 
502 VEX\ A{COLOR UPLOT 36,10{DRAHTO 3 
6,36 

510 PRINT " HOLE * 3 PAR 2" IFOR PT= 
1 TO NP{PRINT Z«(PTxlO-9,PTxlO);"'S TU 
RN"{Bl=INT(R»©(0)xll+12) 
512 S=1{B2=32{CP=1{HP1=25{HP2=32{G0SUB 
100 
520 F RC=2 TICN S=S+1{CP=1 {GOSUB 100 { 
GOTO 520 

530 F RC=1 THEN NEXT PT{GOTO 600 
510 GOSUB 3000 

550 F D2=l OR D2=37 THEN M2=-M2{G0SUB 
200 {GOTO 520 

552 F Dl=16 OR 01=36 OR 01=56 TICN Ml 
=-Ml {GOSUB 200 {GOTO 520 

551 F DK36 THEN A=Ml{Ml=-M2x2{M2=-A/ 
2{G0SUB 200 {GOTO 520 

556 A=Ml{Ml=«2x2{M2=A/2{GCBUB 200:GOTO 
520 

600 GOSUB 10{COLOR 2{F0R A=13 TO 21{PL 
OT 21,A{DRAHT0 63,A{NEXT A{FOR A=25 TO 

36{PL0T 21,A{DRAWT0 35,A:NEXT A 
602 FOR A=l TO 8{PL0T 36+A,21+A:DRAHT0 

63-A,21+A{PL0T 21+A,13-A{DRAWT0 63-A, 
13-AlNEXT A 

601 COLOR 1{PL0T 36,25{DRAHT0 36,11{DR 
AHTO 51,11{PL0T 51,11{DRAHT0 51,21 
610 PRINT " HOLE ♦ 1 PAR 3"{F0R PT= 
1 TO NPIPRINT Z*(PTxl0-9,PTxl0)}"'S TU 
RN"{Bl=INT(RND(fl)x8)+20 

615 S=l{B2=32:CP=l{HPl=13;HP2=19:G0aJB 
100 

620 F RC=2 THEN S=S+r.CP=l {GOSUB lOO: 
GOTO 620 

630 F RC=1 THEN NEXT PT{GOTO 700 
610 GOSUB 3000 

650 IF D2=1 OR 02=12 OR D2=37 OR (02=3 
3 AND Dl>11 AND Dl<55) OR (D2=11 AND D 
1>36) THEN 651 
652 GOTO 656 



44 



SoftSide FEBRUARY, 1981 



651 i12=-«2:G0SUe ZOOiGOTO 620 

656 ff D1=Z0 OR DM9 OR Dl=51 OR Dl=6 

1 OR 01=36 THEN M1=-«1JG0SUB 20flJGOTO 

620 

658 F (Dl>56 AND D2<13) OR (D2>2'i AND 
Dl<57) THEN A=«i:Ml=«Zx2:H2=A/25G0SUe 
200:GOTO 620 

659 A=«1:M1=-«2i2JM2=-A/2 

660 GOSUB 200 '.GOTO 620 

700 Gosue 10JCOLOR 2:fqr a=25 to 36:pl 
ot ii,a:drahto 55,a:next a:f(» a=i to 

9:PL0T 33-A,25-A:DRAHT0 55,25-A 
702 PLOT 21+A,11-A:DRAHT0 55-A,ll-A:tE 
XT a:for a=i .to S'.PLOT 21,16-A:DRA«T0 
55,16-a:next a 

7M COLOR 1:F0R A=1 TO 2:PL0T 55,25-A: 

drahto '»5,15-a:next a 

710 PRINT " HOLE » 5 ?m 2"JP=2:F0R 
PT=1 to NP;S=1;PRINT Z*(PTilfl-9,PTilO 

)j"'S TW»(":cp=i 

715 B1=INT(RND(0)i8)+13:B2=33:HP1=33;H 

P2=13:G0SUB 100 

720 F RC=2 THEN S=S+i:CP=r.GOSUB 1005 

GOTO 720 

730 F RC=1 THEN NEXT PT5G0T0 800 

710 GOSie 3000 

750 F D2=1 OR 02=37 OR (02=25 AND Dl< 
11) THEN M2=-M2:G0SIE 200:GOTO 720 
752 F Dl=23 OR Dl=10 OR Dl=56 THEN Ml 
=-«1:G0SUB 200JGOTO 720 

751 F DK10 AND D2<11 THEN A=Ml!Ml=-« 
2x2J«2=-A/2:G0SIB 200:GOTO 720 

756 A=H1!M1=M2x2:M2=A/2;G0SUB 20fl:GOTO 
720 

800 GOSUB 10:COLOR 2 IFOR A=25 TO 36:PL 
OT 31,A:DRAHT0 15,A:(tXT AJFOR A=l TO 
11 '.PLOT 31,25-A:0RAMT0 51+A,25-A 

801 NEXT A 

802 FOR A=2 TO 13JPL0T 31,AJDRAHT0 62, 

AJNEXT a:color ufck a=i to 2;plot 30+ 

A,Z1:DRAWT0 39+fl,15:NEXT A 

801 PLOT 11,15:DRAHT0 11tlO:PLOT 19,10 

:drahto 19,1 

810 PRINT " HOLE » 6 PAR 3":P=3;F0R 
PT=1 TO NP:S=1:PRINT Z*(PTi10-9,PTi10 
)J""S TIKN" 
815 Bl=INT(RND(0)i8)+3i:B2=33:tf 1=35:H 

p2=13:cp=i:gosi« loo 

820 F RC=Z THEN S=S+i:CP=i;GOaJB 100 : 
GOTO 820 

830 IF RC=1 THEN i€XT PTtGOTO 900 
810 GCeue 3000 

850 F 02=5 OR 02=1 OR 02=37 OR (02=25 
WB Dl>15) OR ((D2=10) AM) (01=11 OR 

D1=19)) THEN M2=-M2!G0SIJB 200:GOTO 820 
852 F 01=30 OR Dl=16 OR 01=63 OR 01=1 
9 OR (Dl=11 AND D2<=16) THEN M1=-N1:G0 

SUB zoo:goto 820 

851 a=«i:«i=-h2«2:h2=-a/2:gosub 200 :go 

TO 820 

900 GOSUB 10:COLOR 2:for ft=l TO 9:plot 

25-a,37-ajdra«t0 51,37-a5pl0t 15+a,17 
-a:dr/wto 51-a,i7-a:next a 

902 FOR A=21 to 27;PL0T 16,A:DRAWT0 51 

,a:next a;for a=i to i:plot i6,16+a:dr 

MO 50+A,16+A:NEXT a 



901 COLOR KPLOT 38,11:DRAHT0 50,23:PL 
OT 38,16:DRAHT0 15,23:PL0T 26,27;DRA«T 
38,27 

906 PLOT 39,27JDRAHT0 39,36 
910 PRINT " HOLE ♦ 7 PAR 3":P=3:F0R 
PT=1 TO NP:S=1:PRINT Z«(PTx10-9,PTi10 
)5"'S TURN" 
915 B1=INT(RND(0)i8)+11;B2=33:HP1=33:H 

p2=32:cp=i:gosub loo 

920 F RC=2 THEN S=S+1:CP=1;G0SUB 100 : 
GOTO 920 

930 IF RC=1 THEN NEXT PTIGOTO 1000 
910 GOSUB 3000 

950 F 01=15 OR 01=55 OR (01=39 AND 02 
>26) THEN H1=-M1:G0SUB 200JGOTO 920 
952 F 02=37 OR 02=7 OR 02=27 THEN h2= 

-«2:gosub 20o:goto 920 

951 F 01<25 AND D2<17 TfCN A=M1:H1=-« 
2x2:M2=-A/2;G0SUe 200:GOTO 920 

956 a=«i:mi=«2x2:m2=a/2:gosub 20o:goto 

920 

1000 GOSUB 10:COLOR 2tF0R A=27 TO 36tP 

LOT 29,a:drahto 13,a:next a:for a=i to 

8:PL0T 29-A,27-A:DRAHT0 13-rt,27-A 
1002 PLOT 21,19-A:DRA«T0 5Z,19-AtPL0T 

2i+a,ii-a:drahto 52-a,ii-a:next a 

1001 COLOR IJPLOT 30,li:DRAHTO 33,1110 
RAWTO 33,21:DRAHT0 36,21:PL0T 37,215DR 
AWTO 10,21:DRMO 10,11:DRAHTO 13,11 
1010 PRINT " HOLE » 8 PAR 3":P=3:F0 
R PT=1 TO NP:S=1:PRINT Z«(PT«10-9,PTx1 
0) 

1015 Bl=INT(RND(0)i8+32):B2=33tHPl=36: 

fF2=17:CP=i:G0SUB 100 

1020 F RC=2 THEN S=S+1:CP=1:G0SUB 100 

:goto 1020 

1030 f rc=1 then next ptigoto 1100 

1010 GOSUE! 3000 

1050 F D2=37 OR D2=2 THEN MZ=-MZ!GOSU 
B 200:GOTO 1020 

1051 F Dl=33 OR Dl=10 THEN F 02=21 
R D2=11 Tl€N 1051 

1052 F 01=20 OR 01=53 OR 01=33 OR 01= 
10 (F 01=28 OR 01=11 THEN M1=-M1:G0SUB 

2flOiGOTO 1020 

1051 F (Dl>13 AND 02>18) OR (DK30 AN 
D D2<11) OR (Dl>36 AND OKU) THEN A=M 
i:hl=-«2x2:M2=-A/2:G0SUB 200 {GOTO 1020 
1056 A=Mi:Ml=«2i2JH2=A/2:G0Sie 200 
1060 GOTO 1020 

1100 GOSUB lOtCtlOR ZtFOR A=27 TO 36:P 
LOT 29,A:DRAHT0 13,AJNEXT AJFtff! A=3 TO 

27:PL0T 20,A:ORAHTO 52,A!NEXT a 
1102 C0L(K ItPLOT 31,10:DRAWTO 31,13:P 

LOT 39,io;drawto 12,13:PL0T 27,ii:drah 

TO 35,22:PL0T 38,22;0RAWT0 16,11 

1110 PRINT " HOLE # 9 PAR 1"!P=1;F0 

R PT=1 TO fff':S=i:PRINT Zt(PTxlO-9,PTil 

0);"'S TURN" 

1115 B1=INT(RNO(0)x8+32):B2=33:HP1=36'. 

HF'2=17JCP=l!G0Sl« 100 

1120 F RC=2 THEN S=S+i:CP=i:G0St£ 100 

{GOTO 1120 

1130 F RC=1 THEN NEXT PllOSlQ 2000 

1110 GOSUB 3000 

1150 f 02=37 or 02=2 or 02=28 tj€n m2 
=-«2;gosub 20o:goto 1120 



1152 F 01=19 OR 01=53 CK ((01=28 OR D 

1=11) m D2>26) THEN M1=-«1:G0SUB 200 

!GOT0 1120 

1151 F (Dl>37 AND 02>13) OR (0K36 AN 

D2<11) THEN A=«1JM1=-«2i2:M2=-A/2JG0 

SUB 20D:GOTO 1120 

1156 A=M1:H1=M2i2:M2=A/2:G0SUB 200 

1160 GOTO 1120 

2000 GRAPHICS fltPRINT " FINAL SCORE 

!" {PRINT (PRINT " PLAYER SCORE"{PR 

INT " " 

2005 FOR A=l TO M^JPRBTT Zf(A«10-9,A*i 

0)5" { ";S(A){NEXT A 

2010 PRINT {PRINT "PLAY AGAIN (Y/N)"} 

2020 GOSUB 3000{A=PEEK(761){F A013 A 

NO A035 mH 2020 

2030 F A=13 THEN RUN 

2010 PRINT {PRINT {PRINT "GOOD BYE."5C 

LOSE »1{END 

3000 SOUND 0,50,10,10 

3005 HH=HH-10{F HH<2 AND HK>-6 THEN H 

H=2 

3010 SOUND 0,200,10,10 

3020 mm 0,0,0,0{RETURN ^Tt 

9999 END V 



APPLE ONE LINERS 

by Roger Schoenmeyer 
Dayton, Ohio 

5 T = 18.8195559{ HO^E { HGR { HCOLOR= 
7{ IflOT fl,fl{ CALL 62151{ tCOLQR= 
0{ FOR X = TO T SFP T / 2 
79{ mm 110,96 TO X X 11.8 
,60 X SIN (X) + 96{ NEH 



by Robert Thompson 
Lorton, Virginia 



10 LDCS = 35{L00P = 100fl{ HGR2 { 
FOR Y = 1 TO RND (10) x LI 

fCS{ HCOL0R= RND (20) x 8{ ffLOT 
M) (30) X 280, RND (10) x 

192 TO RND (50) x 280, RND 

(60) X 192{ FOR X = 1 TO LOO 

P{ NEXT { GOTO 10 



by Carl Mueller 
Murfreesboro, Tennessee 

1 CALL -1229{ GR { POKE -16302 
,0{ FOR 1=0 TO 1 STEP' 0{ FOR 
Y=Y1 TO Y2{ HLIN X1,X2 AT Y{ 
NEXT Y{Y2= RND (18){Y1= RND 
(Y2+1){X2= RND (10){X1= RND 
(X2+l){ COLOR= RND (16){ NEXT 
I 
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LEARN MICRO-COMPUTERS 

(Sceibi) 

A new multimedia information 
package. Includes text 
("Understanding Microcomputers") 
plus high-quality cassette. For the 
beginner just starting in 
microcomputers. Covers all the 
basics quickly, easily and enjoyably. 
Companion tape includes chapter- 
by-chapter synopsis of the book. 
$14.95 plus $1 
TAKE MY COMPUTER . . . PLEASE! 

S. Ciarcia (Sceibi) 

An uproariously funny book about 
the true-life misadventures of author 
Steve Ciarcia and his computer's 
inability to cooperate. Hardcover. 
$5.95 plus $1 

MICROCOMPUTER POTPOURRI 

(Sceibi) 

A pocket-sized reference for the 
beginner. Has a really great glossary 
covering all the jargon. Full digest on 
understanding microcomputers. 
$3.95 plus $1 

CALCULATING WITH BASIC 
R.Guido (Sceibi) 

Use your computer to calculate 
home mortgage payments, interest 
rates, payback periods and more. 
Complete routines already worked 
out for problem solving using BASIC 
language. Also includes 
mathematics, finance and statistics, 
mechanical engineering and 
electronics. $8.95 plus $1 
PERSONAL INFORMATION 
MANAGEMENT SYSTEM 

(Sceibi) 

When you're in business you've got 
a personal stake in how information 
is managed. 

PIMS will allow you to unleash the 
power of a microcomputer - and you 
don't have to become a programmer 
first. Use a computer for accounts 
receivable . . . accounts payable . . . 
maintain inventory records . . .run a 
mailing list . . .keep track of credit 
charges. 

It is a ready-to-use data base 
management program for computers 
like the Commodore PET and Radio 
Shack TRS-80. $1 1 .95 plus $1 

LITTLE BOOK OF BASIC STYLE 

J.M. Nevison i(Acldison-Wesley) 

Ideal reference for BASIC 
programmer, junior high to research 
scientist. Indexed, illustrated, 151 
pages. By John M. Nevison $5.95 
plus $1 



USING CP/M 

Fernandez & Ashley 

CP/M — the Control 
Program/Microcomputers 
software package — is the most 
widely used microcomputer 
operating system. With it, tens of 
thousands of users operate their 
microcomputers and perform 
routine work functions. Now two 
authors of bestselling Wiley 
computer books present a 
complete, detailed introduction to 
the use of CP/M for maximum 
capability and efficiency — with 
any hardware, using any 
programming language. 
$8.95 plus $1 

Z-80 AND 8080 ASSEMBLY 
LANGUAGE PROGRAMMING 

K. SpracklenI (Hayden) 

The best introduction to assembly 
language we sell. You should have 
experience in BASIC. $7.95 plus $1 

Z8D INSTRUCTION HANDBOOK 

N. Wadsworth. (Sceibi) 

Convenient pocket-size manual 
describes Z80 capabilities in easy-to- 
understand terms. Designed as a 
practical reference to mnemonics, 
machine codings, usage. For 
programmers of every level - 
beginner to professional - anyone 
working in Z80 machine or 
assembler language. Appendixed. 
$5.95 plus $1. 

THE SECRET GUIDE TO COMPUTERS 
(Sceibi) 

A quickie course on computers. 
$5.95 plus $1 

TRS-80 ASSEMBLY LANGUAGE 
PROGRAMMING 

W. Barden Jr. (Radio Shack) 

Covers Z-80, and introduction to 
Assembly Language, the Radio 
Shack Editor/Assembler and T-Bug, 
and debugging methods; also 
explains how to move data, the use 
of arithmetic, compare, logic, and bit 
operators, shifts, strings, tables, 
input and output, and 12 commonly 
used subroutines. Well indexed and 
illustrated. $3.95 plus $1 

SOME COMMON BASIC PROGRAMS 

by Lon Poole and Mary Borchers 
(A. Osborne/McGraw-HIII) 

A collection of 76 programs you 
will not have to write for yourself. 
Each program Is presented with 
BASIC source code, operating 
instructions, and verbal description. 
If you're a student or a 
beginning programnner, you can 
learn from this bool< what well 
designed and documented programs 
lool^ lil<e. 
$12.50 plus $1 

PATHWAYS THROUGH THE ROM 

R.M. Richardson, R. Fuller, J.T. Phillipp.G. Blank. J 

Hartford 

(SoftSide Publications) 

The definitive guide to Level II 
BASIC. Includes Super Map by Fuller 
Software. The TRS-80 Disassembled 
Handbook by Robert Richardson, 
HexMem by J. Philip, Z-80 
Disassembler by George Blank and 
DOS Map by John Hartford. $19.95 
plus $1 




6 South St.Mllford. NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-800-25S-1790 

TRS-80 DISK AND OTHER 
MYSTERIES 

H. Pennington 
(IJG) 

The serious programmers' guide to 
Disk BASIC and the wonders of 
NEWDOS +. $22.95 plus $1 
6502 SOFTWARE GOURMET GUIDE 
AND COOKBOOK 

R. Findlay 
(Sceibi) 

Includes instruction set, floating 
point and decimal arithmetic, search 
and sort routines, and more. $12.95 
plus $1 

FORTRAN IV, 2nd Ed. 

J. Friedmann. Ph.D., P, Greenberg. Ph.D.. A. M. 
Hoffberg, CPA, MBA 
(Wiley & Sons) 

This revolutionary new edition of 
the standard FORTRAN guide is 
heavily oriented to personal 
computers. 

FORTRAN, 2nd Ed. gives complete 
explanations - with comparative 
tables - of the new standards for 
FORTRAN developed in 1977. 
Whether you use FORTRAN 77 or 
FORTRAN IV, the authors point out 
all the differences and let you follow 
whichever version is right for your 
machine. You'll start writing basic 
FORTRAN almost immediately, then 
learn standard extensions and 
advanced options. Previous data 
processing background and access 
to a computer are unnecessary. 
$10.95 plus $1 
LEARNING LEVEL II 

Dr. DA. Lien 
(Compusoft) 

The User's Guide to Radio Shack 
Level II BASIC. $15.95 plus $1 

SARGON HANDBOOK 

D. Spracklen, K. Spracklen 
(Hayden) 

Complete documentation covering 
all algorithms in Sargon can be 
found in this guide book. Contains 
complete table of contents, block 
diagram of the program, four part 
introduction, Z-80 listing, index to 
subroutines. Fully annotated. 
$15.95 plus$1 

Z-80 SOFTWARE GOURMET GUIDE 
AND COOKBOOK 

N, Wadsworth i (Sceibi) 

Over 100 usable subroutines, plus 
how to use them. $15.95 plus $1 

RUNNING WILD 

by Adam Osborne (A. Osborne /McGraw-Hill) 

Shows how the microelectronics 
revolution came about, and gives an 
insider's looi< Into how it's shaping 
your future. Everyone who's 
concerned with the future, needs to 
read this bool<. It's written for the 
layperson to help you understand 
the "whys" and "hows" Of this 
amazing new technology. And it 
sounds an urgent warning to us all. 
$3.95 plus $1 
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CP/M SOFTWARE SUMMARY 
GUIDE 

( Rainbow Associates) 

Rainbow Associates announces the 
CP/M Software Summary Guide — a 
concise, handy summary of the 
major software used on most CP/M 
systems. Included are summaries of 
tfie CP/M operation system, 
Microsoft BASIC, CBASIC", and the 
CP/M utilities DESPOOL'", MAC™, 
and TEX. 
$4. 95 plus $1 
THE BASIC HANDBOOK 

by Dr Davtd Lien 
(Compusoft) 

This book is unique. It is not a 
textbook. It's far more than a 
dictionary. It is a virtual 
ENCYCLOPEDIA of the BASIC 
language. 
514.95 plus $1 

UNDERSTANDING 
MICROCOMPUTERS 

(ScelbO 

Here are the answers to hundreds 
of questions about microcomputers. 
Written in simple English. You get 
the fundamental concepts behind the 
operation of virtually all 
microcomputers. Convenient 
glossary covers all the key words. 
$9.95 plus $1 

APL - AN INTERACTIVE 
APPROACH 

L Gilman. A, J. Rose 
( Wiley and Sons) 

This revised second edition has 
been renamed to reflect the fact that 
several versions of APL are currently 
being offered. In recognition of 
APL's growing use in business 
applications, more examples have 
been included, and the body of the 
text itself has undergone a modest 
shift in orientation toward 
commercial uses of APL. 
$16.95 plus $3. 

WHY DO YOU NEED A PERSONAL 
COMPUTER 

by Lance Leventhal (Wiley and Sons) 

No competing book includes any 
discussion of how to program in 
BASIC, much less an appilcation- 
oriented discussion. Nor does any 
do more than mention different 
peripherals, interfaces, etc. No 
competing book discusses 
maintenance or describes the 
various sources of information in 
detail. 
$8.95 plus $1 

TRS-80 INTERFACING 

J A Titus 

(H.W. Sams & Co) 

What you need to know to connect 
your TRS-80 to the world. Assumes 
knowledge of some machine 
language programming. 
$8.95 plus $1. 

TRS-80 INTERFACING - Book 2 

by Titus, Titus, and Larsen 

(H.W Sanns & Co.) 

Introduces you to more 
advanced interfacing techniques 
that allow you to do new things 
with your TRS-80 computer. 
$10.95 + $1 



STIMULATING SIMULATIONS, 
2nd Edition 

by C W, Engel 
(Hayden) 

An exciting handbook containing 
twelve "simulation programs," which 
are actually game programs. Each 
program is presented with a listing, 
sample run, instruction, and program 
documentation, including flow chart 
and ideas for variations. 

$5.50 plus $1 

A CONSUMER'S GUIDE TO 
PERSONAL COMPUTING AND 
MICROCOMPUTERS 

by S. Frelberger:, and P. Chew Jr. 

(Hayden) 

Both an introduction to the 
principals of migrocomputers that 
assumes no previous knowledge on 
the reader's part, and a review of 64 
microcomputer products from over 
50 manufacturers. 
$8.95 plus $1 

TEN EASY PIECES: CREATIVE 
PROGRAMMING FOR FUN AND 
PROFIT 

by H Sagan and C Meyer. 
(Hayden) 

An introduction to the BASIC 
language through computer games. 
Written in an informal style, it 
stimulates interest in creative 
programming of games of chance 
and of skill. 
$7.95 plus$1 

You needn't know anything about 
assembly language programming to 
use our Assembly Language 
Programming Series. Each book is a 
seif-teaching textbook written in a 
standard format and containing the 
entire instruction set for the specific 
microprocessor. 

Each book explains assembly 
language programming, describing 
the function of assemblers and 
assembly instructions, and 
discusses basic software 
development concepts. 

Z80 Assembly Language 
Programming 

S-80 users can save both time and 
computer memory by learning to 
program in assembly language. 
$16.99 plus $1 

6502 Assembly Language 
Programming 

Teach your CBM or Apple 
computer some new tricks, increase 
the capabilities and performance of 
your PET/GBM or Apple computer by 
learning to program in assembly 
language. 
$16.99 plus $1 
INTRODUCTION TO LOW 
RESOLUTION GRAPHICS 
N. Wadsworth (Scelbl) 

Now you can produce amazing 
computer graphics - even if you can't 
draw a straight line. Literally! Learn 
how to draw lines and shapes, make 
graphs, draw pictures and even do 
animation. 
$11.95 plus $1. 

THE MIND APPLIANCE: HOME 

COMPUTER APPLICATIONS 

by T.G. Lewis 
(Hayden) 

Chock full of unique and 
challenging ideas for applying your 
computer to home use. Make your 



computer write poetry, balance a 
checkbook, dial a telephone 
automatically, handle household 
budgets, menu planning, shopping 
lists, and income tax calculations. 
Dozens of BASIC language 
programs. $9.55 plus $1 

UNDERGROUND GUIDE TO 
BUYING A COMPUTER 

(Sceibi) 

This book is a guide to buying 
a microcomputer. Computers, 
like people, come in all sizes. 

The most popular 
maxicomputer has been the IBM 
370 (which is being replaced by 
the IBM 3030 and the IBM 4300); 
the most popular minicomputer 
is the PDP-11; the most popular 
microcomputer is the TRS-80 . 
But before you buy a computer, 
look at the competition. IBM, 
DEC, and Radio Shack aren't the 
only fish in the sea; some of 
their competitors have something 
to offer, too. Treat a computer 
purchase just as you'd treat any 
other important decision — 
check out ail the facts. 
$5.95 plus $1 

PET/CMB PERSONAL COMPUTER 
GUIDE 2nd Edition 

by CarroM Donahue and Janice K Enger 
(A. Osborne yMcGraw-HIII) 

A step-by-step guide that 
assumes no prior knowledge of 
computers, it contains a wealth of 
information on everything from 
keyboard variations to a detailed 
description of PET memory, 
included are: Complete operating ' 
instructions for keyboard, tape 
cassette, and disk units; 
Descriptions of all PET/CBM BASIC 
statements; Optimal PET/CBM 
BASIC programming techniques, 
including input/output programming, 
file handling, strings, random 
numbers, and screen editing; 
Solutions to many programming 
problems, CBM computer 
capabilities, and limitations. 
$15.00 plus $1 

AN INTRODUCTION TO 
MICROCOMPUTERS Volume 1 
-Basic Concepts (Revised) 

by Adam Osborne (A. Osborne'(McGraw-HMI) 

Using concepts that are common 
to all microprocessor systems, 
Volume 1 developes a detailed 
picture of what a microcomputer 
can do, how it does what it does, 
and how the particular capabilities 
of microcomputers can best be 
applied in any practical 
environment. 

This new revised second edition 
incorporates all recent 
microprocessor developments and 
is the most comprehensive and up- 
to-date introduction to 
microprocessor systems available 
anywhere. 
$12.50 plus $1 

VINYL BINDERS 

Quality vinyl binders with 12 metal 
rods, perfect for storing your back 
issues of SoftSlde. $4.95 +$1 
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MINER 




by Phillip Case 

Atari and Apple translations by 
Rich Bouchard and Steve Justus. 

Miner is an S-80 program which 
requires at least 16K of Ram. 

It's 1859, just after the fervent 
rush for gold in California. Finding 
a fortune in your claim is no 
longer the key to becoming 
wealthy. All the large veins have 
been depleted, and the remaining 
gold lies deep in the ground. ..so 
deep in fact that only the large 
mining companies with their vast 
resources can really make a profit 
on the gold that remains. 

But you still own some claims 
which seem promising. Your only 
option for getting rich now lies in 
selling your claims to one of the 
several mining companies that all 
but own the entire area. 

However, before anyone will 
consider buying your claim, you 
must show that there is indeed 



enough gold there to make the 
claim a profitable venture. To do 
this you must risk your life deep in 
the mines. ALONE!!! 

Your claim awaits your decision, 
will you risk your life for riches??? 
Here's your chance. 

Playing "Miner" is simple. The 
dots underground are prospects 
which have a great potential. To go 
underground you must use the 
elevator as the topsoil is too loose 
and will cave in if dug through. To 
use the elevator, walk into it by 
pressing the arrow indicating the 
direction you want to go. Once in 
the elevator, use the up and down 
arrows to move. Then you move 
around by pressing the appropriate 
arrow. 

The dangers in the mines are 
many: Underground springs, cave- 
ins; loose sandstone and solid rock 
will impede your progress. If, 
however, you find you are trapped 
in the mines, simply press the 



CLEAR key and the game will 

end. 

Variables: S-80 version 

A: Misc. Logic. 

AD: Start of video RAM. 

B: Misc. Logic. 

C$: Elevator cable string. 

CK: Random variable to determine 

what prospect may be. 

E$: Elevator string. 

EP: Elevator position. 

ER$: Erasing string. 

G: Random number of ounces of 

gold found. 

GC: Gold carried. 

GP: Gold price. 

M: Money. 

MP: Movement indicator. 

NM: No movement indicator. 

P: Player position. 

PI: Movement direction. 

PP: PEEK (14400) 

Tl: Initialize screen variable. 

T2: Initialize screen variable. 

W$: Fill in string. 

X: Initialize screen variable. 

Y: Initialize screen variable. 



ID ' mixnu 

n HINER VER. 1.0 n 

«i (C) BY PHILLIP CASE 6/80 m 
taMMUMxaxsaxxxnTODaixTatsntn 

20 CLEAR300:RANDO«:DEFINTA-Z:CLS:AO=15360JE»=CHR$(162)+STRING$(Z 

,179)+CHR$(119):EP=121:ER$=STRING$<1,128):C$=CHR$(128)+CHW(170) 

+CHR$(119)+Cl«$(32):«=50fl:P=15161 

30 F0RTl=(MH128)T0(AD+191):Pa<ETl,152:NEXT 

'JO F(«T2=TlTO(AD+10Z3)tPOKET2,191tNEXT 

50 FORT1=(AO+960)TO(AO+1023):POKET1,153:NEXT 

60 FORT1=(AO+192)TO(AO+896)STEP61;P(]KET1,119:POKE(T1+63),170JNEX 

T 

70 F0RT1=M)+181T0AD+959STEP61:F0RT2=1T01:P0KE(T1+T2) ,lZ8:NEXTr2, 

Tl 

80 FORX=115TO12fl:SET(X,0){fEXT:FORY=2TO7:SET(122,Y):NE)(T:SET(lZl 

,1):SET(122,2):SET(123,3):SET(124,')):SET(125,5);SET(126,6):SET(1 

17,1):SET(118,1){SET(118,2):SET(117,2) 

90 FORY=OT08:SET(77,Y):NEXT!SET(86,0):SET(86,1):FORY=86T093!^( 

Y,2){NEXT;F0RX=77T093JSET(X,6):SET(X,7):NE)(T!PRINT(i!39,"EiANK"} 

100 PRINTeO,CHRt(191)+STRING$(9,32)+CHR$(191)+STRING»(9,3Z)+CHR$ 

<191)+STRING$(11,32)+CHR*(191);!FCffiX=OT07i:SET(X,3);NEXT 

110 GOStJB390 

120 GOSUB280 

130 W»=STRING$(2O,191):PRINT041O," MINER "|!PRINTe539," BY "{{PR 

INTe662," PHILLIP CASE ";:fora=itozooo!next:printmio,h*};print0 

539,H«;!PRINTe662,H»; 

110 GOSUBIIO 

150 ' CO»«ND LOOP 

160 poKEP,88:!;!!:::::::st:{:::::::::j::5;:;:::;!j::::j:jpoKEP,i 

*********************************************** nflSLr f JL 

170 PP=PEEK(1'H00) 

180 IFPF-2THENGOT0780 

190 IFP=15167^M)PP=32THENGOSUB720:PP=0;GOT0150 



200 IFPP=8THENP1=P-6CLSEIFPP=16THENP1=P+61ELSEIFPP=32THE»«>1=P-1 

ELSEIFPP=64THENP1=P+1 

210 IFPEEK(Pl)=162THE(«OSUe620 

220 NM=0!GOSUe690 

230 IFNM=lTf€NPl=0;GOTO160 

240 IFPEEK(Pl)=46THENGOSUB'19fltGOTO270 

250 IFPEEK(Pl)O32THEhffi0SlB440 

260 P=P1 

270 GOTO 150 

280 ' ELEVATOR ROUTINE 

290 ' HP=1 TO GO UP nacaHP=2 TO GO OOW 

300 ' EP=€LEVATOR POSITION 

310 IF»ff^lANDPEEK(A0+EP-64)O128THENRETUra) 

320 IFtr=2ANDEP=953THENRETURN 

330 IFI1f-2ANDPEEK(AD+EP+6'»)0128THENRETURN 

340 IFHP=1ANDEP=121THE(«ETURN 

350 IFMP=lTHENEP=EP-64aSEIFfP=2THENEP=EP+64 

360 PRINTeEP,E$! :IFEP>895THEN370ELSEIF«P=1THENPRINT8EP+64,ER$} 

370 IFEP=121THENRETURICLSEIFPEEK(A0+EP-64)O191THENPRINTeEP-61,C 

♦; 

:»o (ip=o:return 

390 ' FIGURE PRICE OF GOD 

400 GP=500+RND(300):raSUB740:RETURN 

410 ' GENERATE TERRAIN 

420 F0RT1=1T035 

430 X=RND(832)+191;IFPEEK(AD+X)=191THENP0KEAD+X,46:NEXT!RETURN:E 

LSE430 

440 ' CHECK FOR WIN OR LOSS, 

450 IFM>7fl00THEICLS:FORA=lTO10;PRINnAB(Ai5);"YOU HIN!!!!":(CXT: 

PRINT" 

YOU CAN NOI SELL YOUR CLAIM TO A BIG MINING COMPANY MD 

RETIRE Ffm THE ROYALITYS, 

PRESS ENTER" ;:i}#>uta:rw( 

460 M=M-5:GOSUe740 
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VO IF«<=0TtCNCLS:PRIHT"YOU HAVE GONE BANKRUPT. 

PRESS ENTER TO PLAY AGAIN. "{tINPUTASJRUN 

180 RETURN 

190 ' PERFORM CHECK OF WmH 

500 GOStJB390 

510 IFPEEK(Pl)=16TfCNCK=RM)(5):ONCKGOSUB53fl,510,560,60fl,610tGOSU 

B7io:return 

520 RETURN 

530 P0KE(Pl),7i;G=RND(3)tGC=GC+G:PRINTe65,"G0LD NUGGET, ";g;"0ZS. 

";;FORA=lTO500:NEXT:PRINT865,STRING$a9,131);:POf(E(Pl),32:RETURN 

510 P0KE(Pl),83:PRINTe65,"lM)ERGR0UND SPRING! ! !";:FQRT1=P1T01638 

3;iFPEEK(Tl )=320RPEEK(T1 )=128THENP0fOl ,37!t£XT!ELSEfCXT 

550 PRINTe65,STRING$(21,131);;Ft)KE(Pl),37*.RETURN 

560 P0KEPl,32:PRINTP65,"CAyE-INI ! !";:F0RT1=F'1-68T0P1+68STEF'61:F0 

RT2=1T09 

570 IFF'EEK(T1+T2)=320RPEEK(T1+T2)=128THEW>0KE(T1+T2) ,191!NEXn2, 

Tr.ELSE(CXTT2,Tl 

580 P1=0!IFRNO(5)=1PRINT865,"YOU LOST ALL YOUR GOLD! ! !";!GC=0!FO 

RA=lT0500;^OT:PRINTe65,STRING$(25,131) ; '.RETURN 

590 PRINT065,STRING$( 15, 131 ) ; iPOKEPl , 191 tRETlMJ 

600 POKEP1,32;PRINT065, "SANDSTONE, EASY DIGGING"','.M=H+1:F0RA=1T0 

500;t€XTtPRINTe65,STRING$(23,131) ; IRETURN 

610 POKEP1,82:PRINT065, "SOLID RKK, PICK-AXE HW'T 00";;F0RA=1T0 

500:NEXT:PRINT865,STRING$(29,131);!RETURN 

620 P1=0:' ELEVATOR SUE: 



630 PP=F'EEK(11100):IFPP=61THEN630 

610 IFPP=8THENMF-1ELSEIFPP=16THENMP=2 

650 IFhP=lANOFEEK(EP+AD-61)<>128THENHF-0 

660 GOSUE:280 

670 IFPEEK(11100)=32ANO(PEEK(AD+EP-1)=320RPEEK(AD+EP-1)=128QRPEE 

K(AD+EP-1)=191)THENP1=^+EP-1;RETURN 

680 GOTO630 

690 NM=0: 'PERFORM CHECK ROJTINE 

700 IFPEEK(P1)<>16ANDF€EK(P1)0-32ANOPEEK(P1)<>191TI€NNH=1JRETIKN 

710 RETUR-N 

720 ' BANK ROUTINE 

730 M=t1+(GCxGP);GC=fl:FORA=lTO10!PRINTei03,STRING$(3,36)*,:FORB=lT 

O50:NEXT!PRINTei03,STRING$(8,32);*.FOR'E:=lTO50;NEXTB,A:GOSUB710*,RE 

TURN 

710 ' DISPLAY FIGURES 

750 PRINT81,"GM t";GP;;pRINT013,GCr'OZS.";:PRINre22,"CASH v'jm;; 

F«>7000GOSLIB760 !GOSUB110 :ELSERETURN 

760 ' FLASH WINNING FIGlfES 

770 FORA=lTO10:PRINTe22,"CASH t";M;;FORe=lTO100;NEXTB;pRINTe22," 

" ; :forb=itoioo :NEXTB,A;REruRN 

780 ' BAD MINE 

790 cls:printchr$(23);" 

miners luck 
too bad the old mine just didn't pan out. 



ATARI VERSION 

10 REM mnxxxxcaixxiiiiiiixi 

11 REM I MINER VI. x 

12 REM X (01980 PHILLIP CASE x 

13 REM xxxxxxxxxxxnxxxnxxxxxx 

11 REM 

15 DIM A«(20) 

20 px=27:py=2;graphics o:m=50o:ep=3 

22 POKE 752,1 

10 FOR Y=1 TO 22:POSniON 2,YJPRINT "> 

"{SFOR X=3 TO M:PRM CHR$(160)}!NEXT 

X'.PRM "<";:sajND o,y,b,2;next y 

50 FOR X=0 TO 36:PRINT CHR»(16);jfEXT 
X 

60 REM LDt 10 

70 FOR Y=1 to 22tPOSniON 31,y:print " 
"JtNEXT Y 

80 posmoN 20,2:print "bank: ";chr$(i 
)}" ";cw»(i);:posinoN 26,ijprimt chr 
*(17);chr*(18);chr»(5)', 

no GOSUB 390 
120 GOSUB 280 
130 FOR T=l TO 20:A*(T)=CHR*(160):NEXT 

t 

132 posnioN i5,7:print " miner "j:pos 

niON 16,9;PRINT " by "NPOSHION 11,1 

i:print " PHILLIP case "; 

133 POSmON 10,13:PRINT "ATARI i^RSIO 

N BY:";:posmoN ii,i5jprint " rich bo 

uchard "*, 

131 posnioN ii,i7:print " fire to sta 

RT " 

136 IF STRIG(0)O0 THEN 136 

138 FOR Y=7 TO i7:posinoN io,y:primt 
a$;:next y 

110 GOSUB 110 

150 REM X COMHAM) LOOP 

160 PCSmON PX,PY:PRINT "X"!O«$(30)! 

5F0R T=1 to 15;>EXT TtPRM "+"JCH»(3 

0)}:for t=i TO 15:next t 

162 PRINT " "r.FOR T=l TO ISJNEXT T 
170 POS=SnCK(0) 



180 ff STRIG(0)=0 THEN 780 

182 if p0s=15 then 160 

181 xx=px:yy=py 

190 IF PY=2 AND PX=27 THEN PY=3:G0SUB 
720:GOTO 150 

200 IF P0S=11 AND PY05 AND PYOl THEN 
YY=PY-1 

202 IF P0S=13 AND PY03 THEN YY=PY+1 

201 IF P0S=11 THEN XX=PX-1 
206 F P0S=7 THEN XX=PX+1 

210 IF XX=31 AND YY=eP THEN GOSUB 620 

220 GOSUB 690 

230 IF NM=1 THEN SOJND 0,0,0,0:GOTO 16 



235 SOUND 0,200,10,11 

236 SOUND 0,0,0,0 

210 IF A=16 THEN GOSUB 190 {GOTO 270 
250 ff A032 ^VEH GOSUB HO 
260 PX=XXJPY=YY 
270 GOTO 150 

280 REM X ELEVATOR ROUTM 
290 REM X MP=1 TO GO UP, MP=2 DOWN 
300 REM X EP=ELEVATOR POSHION 
310 LOCATE 31,EP-l,AtF MP=1 AND A032 
WEH RETURN 

320 IF MP=2 AND EP=23 MH RETUWI 
330 LOCATE 31,EP+l,A:POSniON 31,EP+i: 
PRINT CHR»(A)5:F MP=2 AM) A032 THEN 
RETURN 

310 F HP=1 AND EP=Z THEN RETURN 
350 F MP=1 THEN EP=€P-1 
355 F MP=2 THEN EP=EP+1 
360 POSmON 31,EP:PR[NT CHR$(138)JCHR 
$(160)}CHR$(136);:F EP>21 then 370 
362 F HP=1 THEN POSITION 31,EP+15PRIN 

T II lit 

370 F EPOl THEN LOCATE 31,EP-1,A:F 

ao160 then posihon 31,ep-i:print " " 
5chr$(160);" ";:mp=o:return 

372 return 

371 PRINT CHR$(A); {RETURN 

390 REM X FIGURE PRICE OF GOLD 



100 GP=501+INT(RND(0)x300):GOSUB 71o:r 

ETURN 

110 REM X GEHemE TERRAIN 

120 FOR T=l TO 35 

130 X=INT(Rf«)(0)x35):Y=INT(RND(0)xl7+6 

)*.LOCAF X,Y,A:F AO160 THEN 130 

132 KJUND 0,200, i2,io:posrriON x,y;pri 
NT "."{jsouND o,o,o,o:next tjreturn 

no EM X CHECK FCffi HIN OF LOSS 

150 IF M<7000 THEN 160 

152 GRAPHICS OJFOR A=l TO lOJPKINT (\U 
1,AX2);"Y0U HIN!!!l":fCXT A 

151 PRINT :print "nom yoj can ^LL YOJ 

R CLAIM TO A":PRINT "BIG MINING COMPAN 

Y W© RETIRE" 

156 PRINT "ON THE ROYALTFS" 

158 GOTO 810 

160 M=M-5:G0SUB 710 

170 F M>0 THEN RETURN 

175 GRtfHICS 0:PRINT "YOU HAVE GONE BA 

NKRUPT,"tPRINT "PRESS FM TO PLAY AGA 

IN." 

180 F STRIG<fl)O0 THEN 180 

IK RUN 

190 REM X PERFORM CHECK OF TERRAIN 

500 BOSJB 390 

510 F A=16 THEN CK=INT<RND(0)x5+l):PO 

SmON 2,3J0N CK GOSUB 530,510,560,600 

,610:GOSUB 710 

512 posmoN 2,3:print " 
";:return 

530 G=INT(RM)(0)x3+1):GC=GC+€JPRINT "G 

OLD NicGET, ";g;" ozs.";jposnioN xx,y 

YJPRINT "G"; 

532 FOR A=l TO 10:FOR X=1 TO SO'.SOWD 

o,x,io,io;next x:for x=50 to i step -i 
'.SOUND d,x,io,io:next a 

531 PRINT Ct«*(30)J" "^RETURN 

510 PRINT "l*OERGR0l#» SPRING!! ! "J :POS 
niON XX,YY!PRINT "S"?:SOUM) 0,1,0,6 
512 FOR Y=22 TO YY STEP -15F0R X=3 TO 

continued on next page 
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continued from previous page 

3BtL0CATE x,y,A:posmoN x,y:print chr 
i(M', 

514 F Y=YY AND X<XX THEN 548 
516 LOCATE X,Y,A:F'OSniON X,Y5PRIKT CH 
R$(A)5tIF ft=32 THEN POSHION X,Y:PRINT 
"T", 
518 itXT XJNEXT Y 

550 posnioN xx,yy:print "rjjsouNO o, 

o,o,o:retii»i 

560 px=xx:py=yy:print "CAVE-BHII-JJPO 

SmON XX,njPRD(T " "} 

565 F(« x=xx-i to xx+i:for y=yy-i to y 

Y+i:SOlM) INT(RW)(0)x1),INT(RND(0)xlOO 
)+150,12,lZ 

570 IF X<2 OR X>39 OR Y<1 OR Y>23 THEN 
571 

572 LOCATE X,Y,A:POSmON X,Y:IF A=3Z 
THEN PRINT CHR$(160);:GOTO 571 

573 PRINT CHRi(A); 

571 NEXT YtfEXr X 

580 XX=PXJYY=PY;IF RND(0)<O.Z TJ€N POS 

nion 2,3sprint "you lost all your go. 
o!!!";;gc=o:for a=i to sooinext a 

582 FCK X=0 TO 35SOIM) X,0,0,0:NEXT X: 

return 

590 POsmoN xx,yy:print chr$(160);:re 

TWN 

600 PRINT "SANDSTONE, EASY DIGGING"; :P 

osmoN xx,yy:print " "j:h=h+i5for a=i 
TO 30o:next a 

605 return 

610 SOJND 0,540,115PRINT "SOLID ROCK, 

PICKAXE WON'T DO";:posnioN xx,yy:pri 

NT "R"; 

615 souw) 0,100, 10, io:for t=i to io:ne 
XT t:soum) o,o,o,o:for a=i to 3oo:NExr 

A:RETUi»4 

620 xx=px:yy=py:re« i elevator sub 

630 SOUM) 0,EPilO,10,6:HP=0:POS=SnCK( 

fl)tIF P0S=7 OR P0S=15 IVEH 630 

610 F POS=10 OR P0S=11 re P0S=6 THEN 

lf=l 

615 ff P0S=13 OR P0S=9 OR P0S=5 THEN M 

P=2 

655 ff P0S=11 AND EP01 T(€N 670 

660 GOSUB 280:GOTO 630 

670 LOCATE 33,EP,A:F A=32 OR A=160 TH 

EN xx=33:yy=ep:sound o,o,o,o:return 

680 GOTO 630 

690 («i=0:REM X PERFCKM CHECK 

695 F XX<2 re XX>33 re YY<0 THEN NH=1 

700 LOCATC XX,YY,A:POSniON XX,YY;? CH 

R*(A);:F A016 and A032 AND A<>16fl T 

HEN SOUND o,50,io,io:nk=i:return 

710 RETURN 

720 REH X »M< ROUTINE x 

725 F GC=0 THEN RETURN 

730 N=H+(a»y):GC=o;Fre a=i to ii:sou 

ND 0,0,0, OJPOSniW 10,25PRINT "*$$♦*$ 

$$";:Fre b=i to 2o:NExr e 

731 SOUND D,200-Axl0,6,10 

73Z SEJCOLOR 2,A+l,2:POSmON 10,2:PRI 

NT " ";:Fre b=i to zojnext b:ne 

XT AtSETCOLre 2,9,2:GGSUB 710:RETreN 
710 REM X DISPLAY FIGURES 

750 PosmoN 2,o:print "g« $";gp;:posi 



HON i3,o:print gc}" ozs.";:posniON 2 

2,0:PRINT "CASH i"W ••', 

752 F M>7000 THEN GOSUB 760:GOTO HO 

751 RETURN 

760 1^ X FLASH WINNING FIGURES x 

765 SOUND 0,0,0,0 

770 pre A=l TO lOJPOSniON 22,0JPRINT 

"CASH V'JMJJFre B=l TO lOOtfCXT BJPOSI 

Tm 22,o:print " "5 

772 pre B=i TO ioo:next B5>cxt a:retur 

N 

780 rem X BAD HINE 

790 reAPHICS OtPRINT tPRINT " 

MINERS LUCK":PRINT :PRINT "TCm BAD T 
HE OLD MINE DIDN'T PAN OUT." 
795 SOUND 0,255,12,12 
800 pre T=l TO lOOflJNEXT T 
810 PRINT 5PRINT "PRESS FIRE TO CONTIN 
UE" 

820 IF STRIG(0)O0 IVEH 820 
830 RUN 



APPLE VERSION 

SHAPE TABLE 

Shape I: Prospect 

Shape 2: Tunnel 

Shape 3: Bank 

Shape 5: Empty elevator 

Shape 6: Miner 

Shape 7: Elevator with miner. 

MATRIX VARIABLES: 

C: Contains information about 

where miner has been and where 

prospects are. 

D: Used in checking that prospects 

are drawn within mine. 

NON- MATRIX VARIABLES: 

EP: Incremented or decremented as 

elevator moves. 

S: Incremented, or decremented as 

miner moves vertically. Used to see if 

miner's position is equal to last 

elevator position. 

M: Cash on hand. 

P: Current length of the elevator 

cable. 

X: Miner's horizontal position 

(graphics only). 

Y: Miner's vertical position (graphics 

only). 

H: Miner's horizontal position in the 

matrix (25,8). 

V: Miner's vertical position in the 

matrix (25,8). 

FL,I,J,PR: Misc. logic. 

GP: Current price of gold. 

GC: Number of ounces collected. 

N: Horizontal graphics increment. 

Nl: Vertical graphics increment. 

AS: Player's input (I,J,K,M). 

Z: Random type of prospect. 



10 HOME : VTA6 8: HTAB lOOt PRINT 
"MINER": VTAB 11 J KTAB 975 PRINT 
"BY PHIL CASE": VT« 12: HTAB 



93: PRINT "APPLE TRANSLAHON 
BY": VTAB 13: HTAB 97: PRINT 

"sipx. JUSTUS": pre I = 1 TO 

3000: NEXT I 

11 HOft : VTAB lO: PRINT " TO 

MOVE YOUR MINER, USE THE 'I' 
, 'J', 'K', m 'M' KEYS. E 
ACH TIME YOU DIG, n COSTS 
YOU 5$. TO mX. THE ELEVATTO 
, USE TI€ 'I' AND 'M' KEYS. 
F YOU KCOME HOPELESSLY TRA 
PPED HH CONTROL-C TO END." 

12 Fre I = 1 TO 500: NEXT i: VT« 

16: HTAB 16: PRINT "GOOD LUC 

K": pre I = 1 TO 5oo: next i 

20 OIMC(26,10): DIM D(30) 

30 scALE= i: ROT= o:ep = o:s = 
:p = 3i:m = 500 

Lo3d the shapes. 

10 GOSUB 1230: POKE 232,0: POKE 
233,61 

50 Hre : ittOL0R= i: hplot o,o: call 

62151 
Set op the screen. 

60 hcolor= 3: pre I = to 31: hplot 

0,1 TO 276,i: (€Xr I 
70 pre I = 257 TO 276: HPLOT 1,0 

TO 1,159: NEXT I 
80 HCOLOR= O: DRAW 3 AT 191,29: HPLOT 

259,0 TO 259,P - 16:: DRAH 5 
AT 257,P 
90 HCOLOR= O: HPLOT 0,31 TO 191, 

31 
Generate prospects. 
100 pre I = 1 TO 30 
110 X = INT ( RND (1) X 25 + 1) X 

10 
120 H = X / 10 
130 Y = INT ( RND (1) x 10 + 1) x 

16 
110 V = Y / 16 - 1 
Lines 150-19f keep the prospects 
fron being drawn on the sane place 
or outside the nine, 
150 pre F = 1 TO I - 1 
160 IF X + Y = D(F) THEN a = 1 
170 NEXT F 
180 F PL = 1 THEN FL = O: GOTO 

110 

190 IF X > 215 re X < 15 re Y < 

31 THEN 110 

Put 3 '1' in the natrix to 

represent a prospect. 
200 C(H,V) = 1 
210 DRAH 1 AT X,Y 
220 NEXT I 
230 GOSUB 710 
Movenent routine for niner. 

260 H = 23:V = 
270 X = 226:Y = 30 
280 HCOLOR= O: DRAW 6 AT X,Y 
290 GET A* 

300 IF ASC (A$) = 3 THEN GOSUB 
1110 

310 N = o:ni = 

330 F A» < "I" re A» > "M" THEN 
290 



50 
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310 ON ASC (A«) - 72 GOTO 350,4 
10,170,290,550 

hovenent up« 

350 FY<55ANDX<253THEN6 

10 
360 Nl = - 16 
370 F C(H,V - 1) = 3 THEN 290 

380 V = V - i:s = S - 1 

390 ff Y > 32 AM) C(H,V) = THEN 

M = H - 5: GOSUB 730 
100 GOTO 610 

Novenent left. 

110 F X < 7 DR X < 203 AND Y < 

32 THEN 610 
120 N = - lO; F Y < 33 THEN HC(]LOR= 

3: DRM 6 AT X,Y 
130 F C(H - 1,V) = 3 THEN 290 
HO H = H - 1 
150 F Y > 32 AND C(H,V) = THEN 

M = « - 5*. GOSUB 730 
160 GOTO 610 

Hovaient right, 

170 PR = 

If diner's vertical position equals 
position where he left elevator, 
then let hin enter. 

180 F X > 210 AND S = EP THEN GOSIB 

830: F Y > 32 THEN 650ELSE2 

30 
190 F X > 210 AM) Y > 30 THEN 2 

90 
500 N = lO: F Y < 33 THEN HCOLOR= 

3: DRAM 6 AT X,Y 
510 F C(H + 1,V) = 3 TJCN 290 
520 H = H + 1 

If the natrix contains a '0' (dirt) 
then charge hin 5t to dig. 

530 F Y > 32 AND C(H,V) = THEN 

H = M - 5: GOSUB 730 
510 GOTO 610 

Hovenent doun. 

550 F Y > 150 THEN 610 

560 FY<32ANDX<250THEN6 

10 
570 Nl = 16 

560 F C(H,V + 1) = 3 THEN 290 
590 V = V + r.s = S + 1 
600 F Y > 32 AND C(H,V) = THEN 

M = « - 5! GOSUB 730 
610 F Y < 30 OR X > 219 THEN 67 


Decide which color to draw niner 
depending on background. 

620 HCOLOR= 3! F Y > 30 AM) X < 

250 THEN HCOLOR= 
630 IF Y < 32 THEN HCOL0R= O: GOTO 

670 

If niner hits prospect theri goto 
prospect routine. 
610 F C(H,V) = 1 THEN GOSUB 10 
00 



Draw a tunnel at niner's position 
and save it as a '2' in the natrix. 

650 DRAW 2 AT X,Y: [»AH 2 AT X + 

N,Y + Ni:C(H,V) = 2 
660 HCOLOR= O: F Y > 30 AND X < 

250 T>CN HCOL0R= 3 
Draw niner at predeternined 
increnents. 
670 X = X + N:Y = Y + Ni: DRAW 6 AT 

X,Y: F X < 200 and Y < 32 AM) 

PR = OTHENM = H+(GPiGC 

):pr = i:gc = o: gosub 7io 
680 N = o:ni = 

690 goto 290 
Figure price of gold. 

710 GP = INT ( RNO <1) X 600) + 
300: F GP < 501 TICN 710 

Display fig<jres. 
730 POKE 31,20 : HONE : PRINT "GH 

* ";gp;: print ^m^ w. print 
Gc;" ozs." 

710 PRINT "CASH $ "JH}? F M > 7 

000 THEN GOSUB 780 
750 F M < = THEN 1210 
760 RETURN 

770 EM) 

Flash winning figijres. 

790 TEXT : POKE 31,0: HOME : FOR 

1 = 1 TO 20:P = INT (1.5 I 

I): NORfw. : PRINT spc( P); 
: FLASH : PRINT "CASH *";m: for 

5 = 1 TO lOO: NEXT S: fCXT I 

: mm. 

800 PRINT "YOU CAN NOW SELL YOUR 
CLAIM TO A BIG MINING CO 
Wm AM) RETIRE ON THE 
ROYALTFS." 
810 EM) 

Elevator routine. 

830 F Y < 32 THEN HCOL0R= 3: DRAW 

6 AT X,Y: goto 850 

810 HCOLOR= O: DRAN 6 AT X,Y 

850 HCOLOR= O: DRAH 7 AT 257,P 
860 GET At 

870 F A$ < "I" OR Ai > "M" THEN 

860 

880 ON ASC (A») - 72 GOTO 900,9 

10,860,860,960 

Move elevator up. 

900 F P < 32 THEN 860 

910 s = s - i:ep = EP - i:v = V - 

1 
Draw new elevator, erase old, and 
draw cable to new elevator 
position. 

920 P = P - 16; DRAH 7 AT 257,P: XDRAW 
7 AT 257,P + 16: HCOL0R= 3: HPLOT 
259,P TO 259,P + 16: HCOLOR= 
O: GOTO 860 
Move elevator left. 

910 XDRAH 7 AT 257,P: DRAH 5 AT 
257,P:Y = P: RETURN 



Hovenent doun. 
960 F P > 150 THEN 860 

970 EP = EP + i:s = s + i:v = V + 

1 

980 P = P + 16: DRAH 7 AT 257,P: XDRAH 
7 AT 257,P - 16: (ROT 259,0 
TO 259,P - 16: GOTO 860 

Routine to deternine type of 
prospects. 

1000 Z = INT ( RM) (1) I 6) + 1 
1010 ON Z GOTO 1020,1030,1010,10 

50,1130 
1020 POKE 31,20 : HOME : PRINT "S 

WCSTWE, EASY DIGGING": FOR 

I = 1 TO 50o: NEXT i:m = M + 
i: GOSUB 710: return 
1030 poke 31,20 : home : print "S 

OLID ROCK": FOR I = 1 to 500 
: NEXT I:M = M - 25: GOSUB 7 
lO: RETURN 
1010 POKE 31,20: HOME :G = INT 
( RND (1) X 3 + 1):GC = gc + 

g: print g;"ounce gold m^ge 
t": for i = 1 to 500: next i 
: GOSUB 710 : return 

1050 POKE 31,20: HOME : PRINT "U 
NDERGROUND SPRING": FOR I = 
1 TO 500: NEXT I 

Fill all tumeled areas below niner 
with blue for water. 

1060 FOR I = V + 1 TO 8 

1070 FOR J = 1 TO 25 

1080 F C(J,I) = 2 TtCN C(J,I) = 

3: hcxor= 2: draw 2 at (j i 

10) - 3,(1 + 2) X 16 - 1 

1090 NEXT J 

1100 NEXT I 

1110 GOSUB 710 

1120 HC0L0R= 0: RETURN 

1130 POKE 31,20: HOME : PRINT "C 
AVE-IN": F INT ( RM) (1) X 
5) = 1 THEN PRINT "YOU LOSE 
AIL YOUR GOLD!": FOR I = 1 TO 

50o: NEXT i:gc = o: gosub 71 


Cave in a square area around niner. 

1135 F V < 3 THEN 1200 

1110 F0RI = V-2T0V + 2 

1115 HCOLOR= 1 

1150 F0RJ = H-2T0H + 2 

1160 F C(J,I) = 2 Tl€N C(J,I) = 

o: HC0L0R= i: draw 2 at j x 

10 - 3,(1 + 2) X 14 - 1 

1170 NEXT J 

1180 NEXT I 

1190 GOSUB 710 

1200 RETIKN 

1210 TEXT : HOI€ : VTAB lO: KTAB 
10; PRINT "YOU HAVE GONE BAN 
KRUPT, IF YOU WOULD LIKE TO 
PLAY AGAIN TYPE RUN.": EM) 

1220 END 

continued on next page 
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continued from previous page 


1310 RETURN 


3^3Fy3F3Fa^3F3F2121213C3F3F 


Shape table routine. 


1350 DATA "D700100021007300C500 


3F3F36363636363636363636363F 


1Z30 L = 16381 


CAOOEBOOFBOO" 


0700" 


1210 FOR MX = 1 TO 6 
1250 READ B» 

1260 FOR I = 1 TO LEN (M) STEP 
2 


1360 DATA "363636363636363E2121 
2121212121010021212121212121 
2C202D2D2036363636363636S3F 
3F3F27212121212121" 


1390 DATA "2C3E2C06fl02D2D2D2D 
25212121212121213F3F3F3F372D 
2D2D2D3636363636363E3F3F3F07 
002C212D362621212121X363F2D 


1270 AD = ASC ( MD* (BtJ.D) - 


1370 DATA "2C2D2D2D363636363636 


360600" 


18 


^3Fa^2721212121212C2D2D3636 


1100 DATA "2D2D2D2D252121212121 


1280 IF AD > 9 TffiN AD = AD - 7 


3636363E3F27212121212C2D3636 


21213F3F3F3F372D2D2D2D363636 


1290 CH = ASC ( MID$ (B»J + 1,1 


36363E3F252121212C3636363600 


363636X3F3F21212121211C1236 


)) - 18 




3F170931X36372E0500" 


1300 IFCH>9TtCNCH = CH-7 


1380 DATA "21212121213136363636 


1110 TEXT : HOME : VTAB 10! HTAB 


1310 FtlKE L.AO i 16 + CH 


3621212121212121212121212121 


lO: PRINT "TO) BAD, THE OLD 


1320 L = L + i: NEXT I 


212D2D2D2D2D2D202D2D202D202D 


MIME JUST DIDN'T PAN OU^ 
T.": END Zj 


1330 NEXT MX 


2D2D2D2D353636363636363F3F3F 




The following lines should be 
added to the S-80 version of 
"Convoy" published in the January 
SoftSide 



and other undesirables 

5*020 gosubioi:pokeihi,io:p()keik2,15:u5=<jsr(0):return 

50030 FORU=1T05:OUT255,0:OUT255,1!NEXT:RETIIRN 

50010 X9=LEN(F):V9=1023-32+X9/2:FOR«9=lTOX9:Fl=LEn»(F,H9)JGOSUB 

50030:PRINTeV9-H9,Fi;:NEn:PRINTeW-«9,STRING»(H9,32);:RETURN 

50050 GOSUB10i:POKEU+2,3!FORX=200TO90STEP-9!POKEl>+l,XJUS=USR(0)t 

NEXriRETURN 



/ma^QSOfT 



ASSEMBLY 
LANGUAGE PACKAGE 

For TRS-80"' users who want assembly language programming capability 

The TRS-80™ Assembly Language Development System from Microsoft Is the perfect, low-cost package to 
help you get started with assembly language programming. 

The macro assembler accepts Z-BO op-codes and supports a complete Intel standard macro facility 
including IRP, IRPC, REPEAT, local variables and EXITM $95.00 + $2.50 



CREF-80 Cross Reference Facility 

Complete documentation 

Macro-80 Macro Assembler 

LINK-80 Linking Loader 

EDIT-80 Text Editor 



FORTRAN Compiler 

LINK-80 Linking Loader 

EDIT-80 Text Editor 

FORUB Runtime Library 

Complete documentation 



FORTRAN PACKAGE 

For TRS-80'" users who want FORTRAN programming capability 

Because FORTRAN is a popular language that has been around a long time, and because Microsoft's TRS-80'" 
FORTRAN Is an ANSI Standard FORTRAN, users will instantly have access to the vast number of applications 
programs already written In FORTRAN. FORTRAN is the standard language used throughout the industry for 
scientific, mathematical, engineering, statistical and modeling programs. FORTRAN Is probably the answer if 
Level II BASIC has presented any limitations for your applications. It's easy to Interface directly to machine 
language subroutines. Double precision scientific functions are Included. FORTRAN can support any I/O device, 
and because it's a compiler, FORTRAN Is faster (3-10 times faster!) than BASIC. Floating points and I/O 
subroutines from FORTRAN'S library may be Incorporated in subroutines, plus users can create their own library 
of the subroutines used most often. 

The TRS-80'" FORTRAN Package is fully compatible with TRSDOS. S-80 32K Disk $95.00 + $2.50 

^ ^_^ Buy both and save $15.00 




TS€d-iPiJ^IIX 



6 South St .Milford, NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1 ■800-258-1 790 



SPECIAL PRICE 
$175.00 + $5.00 
Regular price for both $190.00 
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systems 
that work 




THE 

DATA 

FACTORY 



YOU CAN'T WORK HARDER, 
SO WORK SMARTER 

This program is important to 
you. We at Micro Lab have 
tested them all. "THE DATA 
FACTORY" by William 
Passauer, is the most powerful 
data base system yet 
developed. It will provide instant 
accessibility to your records 
and files which you can then, 
rearrange in new combinations 
to give you information in 
seconds to make quick and ac- 
curate decisions. 

OUR GUARANTEE 

THIS PROGRAM WILL WORK. 
Micro Lab chooses to represent 
a very select group of profes- 
sional programmers that meet 
our high standards for quality. 
Countless hours have been 
spent in our labs to insure these 
claims to you, and we back them 
with a contract to your dealer. 
Your program can also be up- 
dated if any new changes to im- 
prove this program are made. 

A UNIVERSAL SYSTEM 

You may use "THE DATA FAC- 
TORY" at home or at work. Set 
up: Inventories, Mailing Lists (a 
printer is needed for mailing 
labels); Sales records; Accounts 
payable or receivable; Budgets; 
Library, recipe, or phone direc- 
tories; Appointment calendar; 
Notices of subscriptions, 
license or warranty dates; Work- 
ing or shopping lists, and many 
other applications that you will 
discover. All of the above can be 
accomplished from this one 
disk oriented program. No need 
to have separate costly pro- 
grams for each purpose. With all 
the data on a disk, you can 
manipulate the information 
more easily and efficiently. 



MOST ADVANCED SYSTEM 

The latest breakthroughs in a 
data base system have been in- 
corporated into Bill Passauer's 
program. The unique new 
feature that sets it apart from all 
others is its complete 
modifiability. You may rear- 
range your data, removing part 
of it from the original disk, and 
form a new data base without 
reentering the data again. Add, 
delete, replace, or rearrange and 
compare fields or data at any 
time. Do an incredible 20 level 
search. Use it to check sales by 
region, sort clients by size of ac- 
counts, and do close to 
everything that other data bases 
can. 

EASILY LEARNED 

Any one can use it. The program 
prompts you as it runs. The easy 
to follow manual leads you 
through the set up of your data 
base and all the features. "The 
Data Factory" is organized in 
nine program modules. Only the 
module being used is loaded in- 
to memory to manipulate data, 
rather than the entire program. 
This saves memory for 
manipulating data rather than 
for program storage. There are 
so many other "common sense" 
features that set it apart from all 
others. 



REQUIREMENTS 

"The Data Factory" is presently 
being offered in APPLESOFT 
but will be available in other 
forms of BASIC shortly. Check 
with your dealer for other soft- 
ware varieties currently being 
handled. You will need 48K and 
Applesoft in ROM. "The Data 
Factory" is as powerful with one 
disk drive as with two. You do 
not lose any of its capabilities 
using only one disk drive. A 
printer is optional. 



FROM A DEALER 

"The Data Factory" is easy to 
use and can truly be called 'a 
friendly system'. We have had 
the most positive feedback from 
our customers. I recommend 
"The Data Factory" to all my 
customers. 

— Marv Clavey 
Computerland of Niles, IL. 



AVAILABLE NOW 

"The Data Factory" is being of- 
fered nationally for the first 
time. It has been marketed and 
tested on a local level and has 
been received with a most en- 
thusiastic response from both 
dealers and users $150.00 




T5edHPffllD€ 
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SPECIAL 
DELIVERY 

with 

EXTRACT 

A 100% Machine Language Word Processor from: 

Quality Software Distributors 



We can't stop improving and expanding the 

capabilities of your TRS—80* By using SPECIAL 

DELIVERY with EXTRACT and either Electric Pencil" 

or Radio Shack's Scripsit' you can get even more 

out of your computer. From just one package you 

w(7/ get all this: 



MAILFORM 

Create MAILFILE: The ONLY complete name and 

address list entry/editor program written in 

machine language. 



MAILRITE 

Print letters written with either the Electric Pencil* 

or Radio Shack's Scripsit* inserting information 

from a MAILFILE into the letter for personalizing 

and addressing. 



EXTRACT 

Take out information from the MAILFORM, the 

machine language mailing list. Find the names you 

need by Zip Code, Street Address, Gender, Age or 

any other wayl 



SORT 

In-Memory sort on an entire address list using any 
field as the key. 



LABEL 

Prints labels from MAILFILE . 



CONVERT 

Make MMLFILE from RS mail list. 



SPECIAL DCUVERY will run on your TRSSO' with 
TRSDOS; NCWDOS' or any other TRS' - like 
DOS. 

$125.00 



Tseimj^iix 
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Now you can 
have a way 
with words... 




Scripsit - 

the new word 
processor from 

Radio Shack! 

SCRIPSIT features: Lower case 
capability; total documentation 
formatting; error correction by 
deletion, insertion, overwriting and 
exchanging; automatic fieaders, 
footers, and page numbers; global 
find, replace, and delete; Operator- 
defined blocks for hyphenation and 
editing. 

SCRIPSIT will produce letters or any 
text material. The documents can be 
stored on disk for revision and 
update. 

If you've seen or used the Electric 
Pencil, you'll be delighted with 
SCRIPSIT's versatility and extra 
features. Rapid typists will appreciate 
the fact that SCRIPSIT does NOT lose 
letters at the end of each line. Titles 
can be automatically centered. Screen 
width can be changed to match your 
printer. Tabs can be set, etc... 

If you are a BASIC programmer, 
you'll want to utilize SCRIPSIT's ability 
to work directly with BASIC programs. 

SCRIPSIT comes on with 
thorough documentation and sample 
text files. Includes audio cassette 
tapes which cover all aspects of this 
exciting Word Processing Package. 

Requires 32K Level II TRS-80, lineprinter 

Disk version $95 00 plus $2.00. 

Cassette $65 00 plus $2.00. 



T5£:HPiTOSID€ 

6 South St .Millord. NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-800-258-1790 




FROM 



Acorn 




Software 
Products, Inc. 



H-r 






Superscript is a series of machine 
language programs which permanently 
customize Radio Shack's Scripsit. 
Superscript enables the user to get a 
Directory or to Kill a file within 
Superscript. It permits the user, it 
equipped with a suitable lineprinter, to 
underline, boldface, superscript, or 
subscript, as well as to print slashed 
zeroes. Plus, there are a number of other 
applications in Superscript that enable 
the S-80 owner to have the ultimate in 
microcomputer word processing. 

32K, S-80, Level II, Disk $29.95 




T5€JH«^ID€ 
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STAD 



RAMWARE 



Unlock the power of the Z-80 with STAD Symbolic Trace 
and Debug 

A powerful monitor for the TRS-80'" with special 
Debugging Single Step through the machine language 
programs or set up to three breakpoints, and look at this 
display format' 

For tape and disk systems. 16-48K on one cassette.... $24.95 



EDITOR/ ASSEMBLER PLUS 



MICROSOFT 



Plus whaf Well, you get the features of the T-Bug and 
the original editor/assembler plus macros and conditional 
assembly, plus extra commands like substitute, move, copy, 
and extend, plus Z-Bug, a powerful debugging monitor with 
8 level breakpoint capability $29.95 



RSM 2/2D 



SMALL SYSTEMS SOFTWARE 



22 commands to control your TRS-80"" Z-80 processor' 
Examine ROM, test RAM, program in machine language 
read/write machine language tapes, and much more' RSM-2 
tape loads at top of 16K Level I or II, RSM-2 disk includes 
3 versions for 16K, 32K and 48K RSM-2 AN ADVANCED 
TAPE MONITOR FOR 16K S-BOs $26.95 

RSM-2D 3 MONITORS FOR TRS-BO'^disk systems ... $29.95 



Z-80 ZAP/CMD RAMWARE 

Powerful disk modification utility in machine language 
allows you to READ, DISPLAY, MODIFY, WRITE, and 
COMPARE disk sectors It will calculate Hash Index Codes 
for any filespec and tell you where to put it (ever have a HIT 
read error'') You can recover killed disk files Search for a 
byte and have it identified with a flashing cursor 
Convenient to use, with cursor controlled by arrows, paging 
forward and backward, toggle between same sector on 
different disks and between Z80ZAP and DEBUG Do disk 
backups, apply patches and fixes, and explore your disk 

Program on ditk (or minimum 16K 1 disk tytlem. with 
Indrucllon manual $29.95 

ULTRA-MON .nterpro 

The first intelligent monitor available tor the TRS-SO'" 
Ultramon is the first ROM independent machine language 
monitor which puts you in COMPLETE CONTROL with 
exclusive INTERPRETIVE EXECUTION 

Each instruction is individually fetched, decoded, 
disassembled. and analyzed by Ultramons "BRAIN" so that 
your efforts cannot "Bomb-out" and so that you can put 
breakpoints anywhere You can even put breakpoints m 

ROM 

ULTRA-MON displays, disassembles, traces (hard-copy 
trace disassembly, too') linepnnis, modifies, relocates 
memory, and even relocates itself with its commands This 
13-page documentation SHOWS YOU HOW TO DO IT 

Totally ROM independent. Ultramon will work in both the 
old and the newer ROM and will not be affected by any 
lower case modifications 
Cassette $24.95 

™= a 

TS€:HPIRI>SID€ 

6 South St .Milford, NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1 ■800-258-1 790 




;iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiim 

FLOPPY DISK 
DIAGNOSTIC 




Now includes memory 
diagnostic at the same price 



The tsest and most complete diagnostic 
you can buy to verify disl< drive reliability 
and find problems. Displays 19 error 
messages and cross references them 
to 14 possible causes. Continuous 
test option for exhaustive testing 
l^eeps statistical record of all errors 
found. 



• 35 or 40 track in same program 

• Tests controller functions and 
status bits 

• Tests drive speed and allows 

adjustment 

• Tests switches and mechanical 

components 

• Verifies data transfer 

• Tests drive seek function 

• Sector and byte write and read 

tests using all possible patterns 

• 16 to 48K, 1 to 4 disk drives 

• Tests cross cylinder Interference 

• Tests drive-to-drlve compatibility 

Supplied on diskette with manual for 
only $24.95. 
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EYE HAND 




COORDINATION 



by Judy Neyhart 

You've all seen the type: eyes 
red and bloodshot from staring at 
the TV screen, thumb swollen to 
twice its original size from 
pounding frantically on the paddle 
button, shoulders and back 
permanently bent over from 
leaning toward the keyboard, and 
teeth clenched in a permanent 
grimace. That's my son, Andy, the 
"Pinball," "Invaders," 
"Asteroids," Wizard. Call him 
what you will, he's hooked on 
computer games. Let's start at the 
beginning... 

When he was five, his 
kindergarten teacher said his 
eye/hand coordination needed 
work (you see, he couldn't cut out 
circles from construction paper 
and make them look like circles). 
This coordination is necessary for 
proper development of reading 
skills. Anything that we could 
furnish to help him develop this 
elusive eye/hand coordination 
would be invaluable for his 
education, she said. Enter "the 
father," very devoted, wanting to 
provide everything his children 
need (and also chafing at the bit to 
be the first one on his block to 
have his OWN computer). With 
these two prerequisites, the time 
was perfect to present the case to 
me. Yes, we were the first ones on 
our block to have our own 
computer (after four years, we're 
still the only ones on our block 
with our own computer). 

Because we chose an Apple, the 
color graphics were eye-catching 
and the hand coordination 
developed quickly. The first game 
attacked was the "Little Brick 
Out" that comes at no charge with 
the computer (no charge - HA! 
They know that this will be the 
addictive drug that leads to a long 
spending spree on same after same. 
But I'm getting ahead of myselO- 
Despite the summer heat, Andy 
spent the entire day playing 
"Brickout." After four hours, he 
had it mastered. Every single time 
he would destroy all the bricks 
with a single ball. A demolition 
team would have been envious of 
his destructive results. 
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The eye/hand was developing. 
MORE, he said. As Christmas was 
soon upon us, more he got. Santa 
Claus responded to his request. He 
next concentrated his new-found 
coordination on "Sink the Ship." 
Soon he could blow up hundreds 
of enemy battleships in one 
afternoon. MORE led to MORE. 

"Invaders" was the beginning of 
a new trend for the Game Addict. 
He began putting up charts with 
his highest scores all over the 
walls. When a new high mark was 
reached, all the old scores were 
scratched off and the new ones 
scrawled in. The Game Addict had 
become a Chart Maker. 
"Invaders" did have something 
new. It was the first one with 
sound effects. I began to hear in 
my sleep the weird whirring of the 
space ships and the haunting splurt 
of the bombs exploding. The little 
laughing spacemen didn't laugh at 
him after the first day because he 
could clear the screen three times 
and get additional bases over and 
over. 

"Pinball" was the first one that 
kept the high score automatically. 
That gave him a reason to play on. 
The ball-hitting talents he picked 
up with "Brickout" helped, but 
"Pinball" also required calculation 
of angles of deflection. The 
"Pinball" game required time to 
master, but the Wizard spent time 
willingly. He had to beat that score 
at the top of the screen. He began 
to be late for dinner. "I can't stop 
now, Mom, I'm in the middle of a 
game!" 

The next game to be conquered 
was "Asteroids." Those little 
meteor-type shapes hurling at his 
spaceship didn't stop him for a 
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minute. He could whirl his ship 
around in time to barely miss 
being demolished and then whirl 
back around and hit the offending 
asteroid in the back. It was 
something to watch. 

"Bowling," we thought. That 
will take him a while longer to 
master, but no such luck. In a few 
hours the little man at the end of 
the alley could bounce up and 
down and get in exactly the right 
position (with Andy's help) to 
throw a strike almost every time. 
This, however, lent itself to the 
Chart Maker in a grand scale. 
Total Strikes, Total Spares, 
Consecutive Strikes, and Total 
Score were the chart titles that 
appeared on his walls. 

With Star Wars fresh in his 
memory, "Death Star" was a 
must. If Yoda knew of Andy's 
talents, my son could easily 
become a Jedi Master. The round 
space ships, the ground 
installations, the space satellites, 
and even the reactor chute were 
easy targets. Fighter flying and 
shooting were added to his list of 
eye/hand acquisitions. 

"Shooting Gallery" required a 
few minor changes in our 
hardware. You see, he was pushing 
the button so hard that his thumb 
was being bruised. His father put 
in a larger paddle button. Then the 
Wizard could go to town with his 
"trigger thumb." The first row of 
ducks could be wiped out easily. 
Even the decoy. Iron Bottom, 
didn't fool him. Then the second 
row of spiders fell prey to his gun. 
Those elusive little bull's-eyes 
could be hit with ease after his 
weeks of eye/hand training. If 
only the computer could pass out 
stuffed animals for the high score 
like they do at carnivals! 

Yes, he's hooked. A Wizard at 
computer games? He's in fifth 
grade now and his kindergarten 
teacher would be amazed at his 
eye/hand coordination. But, I'd be 
happy to break his hand or 
blacken his eye every time he 
belittles my scores. You see, I 
can't even come close to any of his 
scores and I try, really I try. Oh, 
well, I can cut circles out of ^^ 
construction paper. ^^ 
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ABM 

Invader and Asteroids move over . . . 
ABM has arrived! Command your 
launch sites to fire 1 and 5 l<iloton 
anti-ballistic missiles (ABMs). Save 
the East Coast from increasingly 
fierce Enemy nuclear attack. Posi- 
tion your target crosshairs to blast 
the green streamers before they fire- 
ball yourcities— or worse— split into 
multiple warhead MIRVs turning the 
entire coast into a thundering 
specter of destruction. Hi-res color 
graphics, sound, high score to date 
memory, paddle or joystick control. 
On disk, requires Applesoft ROM. 
($24.95) 





DATA PLOT 

Easy editing features allow you to 
create and modify a wide variety of 
full color graphic representations of 
numerical information. Bar charts, 
including additive bars, as well as 
single and multiple line charts may 
be plotted individually or cumula- 
tively. Pie charts are easily sliced. 
All figures may be output to a 
graphics printer or saved as hi-res 
"pictures" for dramatic full color 
recall as visual aids during presen- 
tations. Basic statistics are displayed 
automatically. On disk, requires 48 k 
and Applesoft ROM. ($59.95) 



from the leader in quality software 



MiJSE 



SOFTWARE^ 



Apple II Is o trodsTiartc o( Apple 
Computet Corp 



IML. 



.TSeJHPIROSIIX 
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APPLE 

ASSEMBLY LANGUAGE 

DEVELOPMENT SYSTEM: 

ASSEMBLER/EDITOR/ 

FORMATTER 

Write and modify your 
machine language programs 
quickly and easily. Features a 
cursor-based editor, global 
and local labels, and disk- 
based macros which allow 
you to incorporate frequently 
used subroutines into any 
program. Documentation 
included. 

Apple II Disk $39.95 

SUPER APPLE BASIC 

A structured BASIC that 
compiles an optimized 
Applesoft or Integer BASIC 
program. Features labelled 
subroutines, jumps, and the 
use of variable names of up 

to ten characters. 
Documentation included. 

1 Apple II Disk $39.95 
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Hellfire 
Warrior 

At last the sequel to the "Temple of Apshai." 
Dunjonquest's newest, "Hellfire Warrior," adds 
four more levels to the lowest reaches ofApshai's 
dunjon. Undead and fiery demons roam 
seemingly endless labyrinths, gobbling up all but 
the hardiest warriors. If you are a beginner, 
perhaps you should explore other regions first, 
for "Hellfire Warrior" is for only the most 
hardened. 

Cassette S-80 16K Level II $24.95 

Disk S-80 32K $29.95 

Apple Disk 48K Applesoft $29.95 

TS€JHnRDSIIX 

ORDER TOLL FREE: 1-800-258-1790 n iff^ WS4 

(in NH call 673-5144) SS. ^L/ 

6 South St., Milford, N.H. 03055 
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FAMOUS SAYINGS 
HANGMAN 




by Mark Cross 

FAMOUS SAYINGS 
HANGMAN runs in 32K Apple 
with Applesoft. 

This game is easier to play and 
more rewarding than most 
hangman games. It doesn't try to 
stump you with short impossible 
words like "zephyr,'' instead you 
get a long phrase to guess. You can 
decipher it from what you know of 
spelling and sentence structure. At 
the end you have rediscovered a 
famous proverb or metaphor. This 
is an educational game for children 
since it teaches reading and 
spelling. 

More sayings are easy to add. 
Just insert the new message at line 
2575 and add one to the maximum 
counter (N) in Une 267. The 
program operates by starting at a 
random phrase in its list. Then it 
gives lower numbered phrases to 
guess until it reaches phrase #1. 
After that it recycles to the highest 
numbered phrase in its list. Study 
lines 265-268 for more detail. 

MATRIX VARIABLES 
E$ (8): The list of wrong guesses. 
MS (40); The secret phrase to be 
guessed. 

OUTS (40): A mixture of known 
letters and unknown dashes. 
TEMPS (40): Temporary string used 
while checking for correct letters that 
were found. 

NON-MATRIX VARIABLES 

AS: The letter guesses by the player. 

E: Number of errors. 

I: Count that moves through the 

secret phrase. 

L: Length of secret phrase. 

LMEM: LoMem, usually 2048 in 

Integer BASIC. 

N: Number of the next secret phrase. 

XS: Temporary character used in 

checking for correct guesses. 



128 £♦ = ""JE = 

Skips instTuctions for the next 

qanei 

m IF CC < > THEM 195 

151 TEXT : CALL - 93«: POKE - 
16298,1 

152 PRIMT 5 PRINT J PRMT 

155 PRINT TANQUS SAYINGS HA 
NGNAN" 



157 PRINT ; PRINT TAB( 2fl)}"C0P 
YRIGHT 1980"? PRINT TAB( 28 
);"BY HARK CROSS'". PRINT : PRINT 
: PRINT 

159 FOR I = 1 TO 888: NEXT I 

170 PRINT "THIS IS A IMCMN GAH 
E WTH": PRINT "FWWUS SAYIN 
GS FOR YOU TO GUESS."! PRINT 

171 FOR I = 1 TO 2555: NEXT I 

172 PRINT "THE SAYINGS ARE UP TO 

10 (MWCTERS LONG INCLUDIN 
G NUMBERS AND LETTERS.": PRINT 
171 FOR I = 1 TO 2111! fOT I 

175 PRINT "YOU CAN GUESS ONE CHA 
RACTER AT A" 

176 PRINT "TIME. ON THE FIFTH M 
ISTAKE YOU HILL BE i i i 
HUNG 1 X X.": PRINT 

178 FOR I = 1 TO 1666: VEXJ 1 

179 PRINT "PRESS ANY KEY TO STAR 
T. '•', 

181 POKE - 16368,0: GET A$ 
185 CALL - 936: WTAB 2i: HTAB 1 
: PRINT "GUESS HWT THE DASH 
ES MEAN." 
The random value of N deternines 
what saijlDQ uill be used. 
190 N = 5 + m (111 X RND (D) 
195 CC = i: GR : COLOR= 7: FOR I = 
TO 39: HLIN 0,39 AT i: NEXT 

i: Gosue 1030 

255 G0SUB258 

256 GOTO 267 

258 ON N GOTO 2000,2005,2010,201 
5,2020,2025,2030,2035,2010,2 
015,2050,2055,2060,2065,2070 
,2075,2088,2085,2090,2095,21 
80 

259 "UN Tir^TirGm~2m?im;i 

115,2120,2125,2130,2135,2110 
,2115,2158,2155,2168,2165,21 
70,2175,2180,2185,2190,2195, 
2200 

260 ON (N - 11) GOTO 2285,2218,2 
215,2220,2225,2230,2235,2210 
,2215,2250,2255,2268,2265,22 
70,2275,2280,2285,2290,2295, 
2300 

261 ON (N - 61) GOTO 2305,2310,2 
315,2320,2325,2330,2335,2310 
,2315,2350,2355,2360,2365,23 
70,2375,2380,2385,2390,2395, 
2180 

262 ON (N - 81) GOTO 2105,2110,2 
115,2120 ,2125,2130 ,2135,2110 
,2115,2158,2155,2168,2165,21 
78,2175,2188,2185,2198,2195, 
2588 



263 ON (N - 181) GOTO 2505,2510, 
2515,2520,2525,2530,2535,251 
0,2515,2550,2555,2560,2565,2 
570,2575,2580,2585,2590,2595 
,2600 

267 N = N - 1! IF N < 1 THEN N = 

115 
Forn the string OUT$ with dashes 
for urknown letters. 

268 L = LEN (M«)!OUT$ = "": FOR 

I = 1 TO L 

270 A» = "-":X* = HID$ (M$,I,1) 
272 IF ASC (X$) < 18 OR ASC (X 

$) > 90 THEN A$ = Xi 

271 OUT$ = OUT* + A$: NEXT I 
280 VTAB 22: PRINT OUT* 

300 VTAB 23: HTAB 30 : PRINT "GUE 
SS ? "5 

303 GET A*:i = PEEK ( - 16336) + 
PEEK ( - 16336) - PEEK ( - 
16336) 

301 IF ASC (A«) = 3 THEN END 
306 IF ASC (A$) < 18 OR ASC (A 

*) > 90 THEN 303 

355 VTAB 23: KTAB 30: PRINT " 
II. 

Look for a natch between At and 

sonething in Mi. Line 365 saves 

the fetch position as 'J' and sets 

1=999 to avoid leaving an 

unfinished loop. 

360 FDR I = 1 TO L 

365 J = i: IF MID* (M*,I,1) = A* 

THENI = 999 
370 NEXT I 

372 ffl< 888 THEN 375 

373 I = J: goto 150 

Go to line 375 for a wrong guess. 
375 E = E + 1:E* = E* + a* 
380 ON E GOTO 1012,1055,1065,107 

5,1085,1091 
385 FOR I = 1 TO 50:X = PEEK ( - 

16336): POKE - 16336,0! NEXT 

I 
387 F E < > 3 THEN 395 
389 E = 1! GOTO 380 
395 VTAB 22: HTAB i: PRINT OUT* 
100 F E < 1 THEN 300 
103 VTAB 2i: HTAB 1 

105 PRINT "MISTAKES: "?: FOR I 

= 1 TO E 

106 PRINT MID* (E*,I,1)J" "?: NEXT 
I 

187 F E = 6 THEN 578 

110 GOTO 386 

Put sone control-G bells in the 

next line. Lines 150^60 process a 

right guess. . continued on next page 
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continued from previous page 

«« HTfB i: VTAB 21: PRINT "i i 
I HIT III 

151 FOR il = 1 TO L: IF HIM (H 
$,n,l) < > A$ THEN 159 

152 ffn>lAM)n<LTHEN15 
8 

153 F n = 1 THEN 157 

155 OUT$ = LEFT* (OUT«,L - 1) + 
A«! GOTO 159 

157 QlITt = A$ + «ID$ (0UT»,2,L - 

1) J GOTO 159 

158 OUT* = LEFT* (OUT*,n - 1) + 

A* + RIGHT* (OUT*,L - H) 

159 NEXTH 

160 VTAB 22; HTAB 1*. PRINT OUT* 

161 HT« 1: IF E < 1 THEN 161 

162 VT/« 21: PRINT "HISTAKES: 

";*. FOR I = 1 TO Et PRINT HID* 

(E*,I,1);" "m NEXT I 
161 FOR I = 1 TO L 
165 IF HID* (0UT*,I,1) = "-" THEN 

I = 999 
178 NEXT I 

171 VTAB 21! HTAB i: PRINT " 

III 

172 IF I > 777 THEN 300 

Put sone control-G bells in the 
next line. 

171 VTAB 21: HTAB IJ PRINT " Y 
U GOT IT ! 

176 GOTO 600 

570 GOSUB5000 

580 FOR J - 1 TO 3: FOR I = 1 TO 

lOOJX = PEEK ( - 16336)! POKE 
- 16336,0! NEXT I!Y = 123 « 

12! NEXT J 
590 VTAB 22! HTAB 1! PRINT H*? 
600 FOR I = 1 TO 1222! NEXT I 
610 VTAB 21! HTAB 1! PRINT " 
"J! HTAB 1 

620 PRINT "PRESS 'S' TO STOP} R 
ETURN TO CONTINUE."J 

621 POKE - 16368,0 

622 I = PEEK ( - 16381)! IF I< 

128 THEN 622 

623 POKE - 16368,0 

621 CALL - 936! IF I< > 211 TtCN 

128 
630 END 
Drau Gallows, 

1030 COLOR= 0! HLIN 2,22 AT 1! HLIN 
2,22 AT 2! VLIN 1,36 AT 3! VLIN 
1,36 AT 2! HLIN 1,31 AT 35! HUN 
1,31 AT 36! RETURN 
Drsu head, 

1012 CQLOR= 9! VLIN 3,5 AT 19! HLIN 
17,21 AT 6! VLIN 7,12 AT 16! 
\UN 7,12 AT 22! HLIN 17,21 
AT 13 
ion HLIN 18,28 AT 11! PLOT 18,8 

! PLOT 28,8! GOTO 385 
Draw bod^t 

1055 COLOR= 1! VLIN 15,21 AT 18! 
WJN 15,21 AT 28! VLIN 11,2 
1 AT 19! GOTO 335 
Draw right arnt 



1065 COLDR= 9! VLIN 17,22 AT 15! 
VLIN 16,17 AT 16! PLOT 11,2 
2! VLIN 15,16 AT 17! GOTO 38 
5 
Draw left arn. 

1875 COLOR= 9! VLIN 17,22 AT 23! 
VLIN 16,17 AT 22! PLOT 21,2 
2! VQN 15,16 AT 21! GOTO 38 
5 
Draw right leg. 

1885 COLOR= 9! VLIN 21,25 AT 17! 

\UN 25,26 AT 16 
1086 VLIN 26,31 AT 15! PLOT 11,3 

1! GOTO 385 
Draw left leg. 
1091 CGLOR= 9! VLIN 21,25 AT 21! 

VLDJ 25,26 AT 22 
1096 VLIN 26,31 AT 23! PLOT 21,3 

1: GOTO 385 
Metaphors, proverbs, and quotations 
to guess. 

2800 H* = "A SmCH IN TSC SMS 

NINE."! RETURN 
2005 H* = "A FOOL MO HIS HONEY A 

RE SOON PARTED."! RETURN 
2010 H* = "ROSES ARE RED, VIOLETS 

ARE BLUE."! RETURN 
2015 n* = "SPARE THE ROD MO SPOI 

L THE CHILD."! RETURN 
2020 H* = "F AT FIRST YOU DON'T 

SUCCEED TRY AGAIN"! RETURN 
2025 H* = "THE QUALITY OF MERCY I 

S NOT STRAINED."! RETURN 
2030 H* = "\JtJSt\ AW THE HORLD \Jt 

UGH5 HITH YOU."! RETURN 
2035 H* = "aOAT LIKE A BUTIIRFLY 

, STING LIKE A BEE"! RETURN 
2010 H* = "tf>PLE COMPUTERS t*WE N 

HGRHS."! RETURN 
2015 H* = "THE QGN IS THE KING 

F BEASTS."! RETURN 
2050 H* = "E/«LY TO BED, EARLY TO 

RISE"! RETURN 
2055 H* = "THE EARLY BIRD CATCHES 

THE HORN."! RETURN 
2060 H* = "I'M DREAMING OF A HHH 

E CHRISTMAS."! RETURN 
2865 M* = "DON'T BURN YOUR CMOLE 

AT BOTH EM)S."! RETURN 
2070 H* = "A PENNY SAVED IS A PEN 

NY EARNED."! RETURN 
2075 H* = "AN EVIL HM mS A BOLD 

MGUm."! RETURN 
2080 H* = "A HISE SON MAKES A GLA 

D FATHER."! RETURN 
2085 M* = "H IS A SPORT TO A FOO 

L TO DO MISCHIEF."! RETURN 
2090 H* = "SIMPLE PEOPLE BELIEF 

POLmCIMB."! RETURN 
2095 M* = "A SOR ANStER TURtETH 

MIAY HRATH."! RETURN 
2100 M* = "ONLY FOOLS REFUSE TO B 

E TAUGHT."! RETURN 
210?fl*^^ RAGGING HTFTTS LIKE 

DRIPPING HATER."! RETURN 
2110 M* = "OH BEAUTIFUL FOR SPACI 

QUS SKIES"! RETURN 



2115 N* = "UNDER THE SPREM)ING CH 

ESTNUT TREE"! RETURN 
2120 H* = "HE tM PIMTS A TREE P 

LANTS A HOPE."! RETURN 
2125 H* = "BREATHES THERE A HM H 

HH SOUL SO DEAD?"! RETURN 
2130 H* = "THERE IS NO PLACE LIKE 

HOME."! RETUIW 
2135 H* = "DISCRETION IS THE BEU 

ER PART OF VALOR."! RETURN 
2110 H* = "FOUR SCORE MO SBXH Y 

EARS AGO"! RETlff94 
2115 H* = "MH m THE COURSE OF 

HUmN EVENTS"! RETURN 
2150 H* = "BEAUTY IS (M.Y SKIN DE 

EP."! RETURN 
2155 M* = "CHILDREN OBEY YOUR PAR 

ENTS."! RETURN 
2160 H* == "A NQRD TO THE HISE IS 

SUFHCIENT."! RETURN 
2165 M* = "A FOOL'S MOUTH IS HIS 

RUIN."! RETIKN 
2170 H* = "HE MHO LOVES PLEASURE 

SHALL BE POOR."! RETURN 
2175 M* = "WHERE TICRE IS SMOKE T 

HERE IS FIRE."! RETURN 
2180 M* = "A ROLLING STONE GATHER 

S NO MOSS."! RETURN 
2185 H* = "EXPERIENCE IS A HARD T 

EACHER."! RETURN 
2190 H* = "A POEM AS LOVELY AS A 

TREE"! RETURN 
2195 H* = "RED SKY AT NIGHT, SAIL 

OR'S DELIGHT"! RETURN 
2200 H* = "DON'T BITE OFF MORE TH 

AN YOU CAN CHEN."! RETURN 
2205 M* = "ASK MMT YOU CM DO FO 

R YOUR COUNTRY."! RETURN 
2210 M* = "»t F BY LAND, THO F 

BY SEA"! RETURN 
2215 M* = "AS HARMLESS AS A DOVE" 

: RETURN 
2228 H* = "GO HEST YOUNG HAN."! RETURN 
2225 H* = "A GENTLEMAN'S WORD IS 

HIS BOND."! RETURN 
2230 M* = "ALL'S HELL THAT ENDS H 

ELL."! RETURN 
2235 M* = "FAILURE IS TIE LDE OF 
LEAST PERSISTENCE"! RETURN 
2218 M* = "DON'T BURN YOUR CANDII 

AT BOTH ENDS."! RETURN 
2215 M* = "TIME AND TIDE WffT FOR 

NO MAN."! RETURN 
2258 H* = "AS BUSY AS A 6EWER"! RETURN 
2255 H* = "AS BUSY AS A BEE"! RETURN 
2260 M* = "A MEMORY LIKE AN ELfPH 

ANT"! RETURN 
2265 H* = "AS SLY AS A FOX"! RETURN 
2270 M* = "PRETTY AS A PICTURE"! RETURN 
2275 M* = "KNEE HIGH BY THE FOURT 

H OF JULY"! RETURN 
2280 H* » "A LISTEiER IS A SILENT 

FLATTERER."! RETURN 
2285 H* = "THE POT CALLED TIE KET 

TLE BLACK."! RETURN 
2298 H( = "H'S RAINING CATS AND 

DOGS.": RETURN 



60 
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continued from previous page 

2295 H»= "GIVE HE LIBERTY OR dV 

E IE DEATH.": RETURN 
2311 N$ = "MC'S THE FAIREST OF T 

HEH Ml?" 5 RETURN 
23IS HI = 'lANGUAGE IS THE DRESS 

OF THOUGHT.": RETURN 
2311 nt = "ND HAN CM SERVE THD H 

ASTERS.": RETURN 
2315 H« = "AS CUTE AS A BUnOT: RETURN 
2321 H« = "AS HM) AS A HORNET": RETURN 
2325 H» = "AS STRONG AS AN OX": RETURN 
2331 H« = "AS HUNGRY AS A BEfR"', RETURN 
2335 H« = "AS FAT AS A PIG": RETURN 
2318 H$ = "AS HAPPY AS A LARK": RETURN 
Z3C « = "THANK GOD H'S FRIDAY. 

": RETURN 
2350 H< = "LAUGH MO T)£ NORLD LA 

UGHS HITH YOU.": RETURN 
2355 N* = "REJUCE IN THE WFE OF 

THY YOUTH.": RETURN 
2361 H$ = "2 1 6 8 IH) 00 « APP 

REOATE?": RETURN 
2365 H$ = "PATIENCE IS PASSION TA 

«).": RETURN 
2379 H$ = "(ERE TODAY AM) GONE TO 

HQRRQH": RETURN 
2375 H( = 'IXE GIANT LEAP FOR HAN 

KDO": RETURN 
238D H$ = "BLESSED ARE THE PEACEH 

AKERS.": RETURN 
2385 H« = "TO BE OR NOT TO BE": RETURN 
2398 N« = "UNCLE SAN ICEDS YOU.": 

RETURN 
2395 H< = "GffiBAGE IN, GARBAGE QU 

T": RETURN 
2408 H« = "PAINT THE TOHN RED.": RETURN 
2185 Nt = "KEEP YOUR HOUTH AND KE 

EP YOUR LIFE.": RETURN 
2118 m = "M APPLE FOR THE TEACH 

ER": RETURN 
2115 M = "A FOOL'S HONOR IS SUHH 

ER SNON.": RETURN 
2128 «$ = "NICE GUYS FINISH LAST. 

": RETURN 
2125 n« = "A CtEERFUL tEART IS GO 

QD MEDICINE.": RETURN 
2130 H* = "KIND HORDS ARE LIKE HO 

»EY.": RETURN 
2135 m = "CHILDREN ARE POOR «(' 

S RICHES.": RETURN 
2118 m = "AS GOOD AS GOLD": RETURN 
2115 m = "FASTER THW A SPEEDING 

BUliT": RETURN 
2151 W = "BAREFOOT BOY HITH OEE 

KS OF TAN": RETURN 
2155 «$ = "LIFE IS REAL, LIFE IS 

E/WEST.": RETURN 
2160 H$ = "OLD SOLDIERS HEXR DIE 

.»: RETURN 
2165 H* = "AS HIGH AS A KITE": RETURN 
2170 «♦ = "COKE ADOS UFE.": RETURN 
2175 « = "PRIDE GOETH BEFORE A F 

ALL.": RETURN 
2180 m = "LOOK TO THE ANT, THOU 

SLUGGMS.": RETURN 
2185 H» = "AN APPLE A DAY KEEPS T 

(E DOCTOR AHAY.": RETURN 



2198 H» = "A POEM AS LOWLY AS A 

TREE": RETURN 
2195 m - "COLORS ARE THE SMILES 

OF NATURE.": RETURN 
2588 M« = "2 GOTO 2 BE 1 GOTTEN": 

RETURN 
2585 Mi = "AS AMERICAN AS APPLE P 

IE": RETURN 
2518 M» = "THE SKY IS FALLING.": RETURN 
2515 M$ = "POKY WISE MD POUND F 

OOLISH": RETURN 
2520 M« = "HE THE PEOPLE": RETURN 
2525 M$ = "TEMPIS FUGH": RETURN 
2530 M» = "THE CHIU) IS FATHER OF 

TIE MAN.": RETURN 
2535 M» = "NECESSm IS THE MOTHE 

R OF DKENHON.": RETURN 
2518 M» = "SEEING IS BaiEVING.": 

RETURN 
2515 M« = "POOR BUT HOfEST": RETURN 

2550 M$ = "HANG n UP, LOSER.": RETURN 

2555 M( = "IN THE GOOD OLD SUMMER 

TDE": RETURN 
2568 M$ = "I CAME, I SAM, I CON 

QUERED.": RETURN 
2565 M« = "HUSBANDS, LOME YOUR HI 

WS.": REIURN 
2578 Mi = "THE EWL THAT MEN DO L 

IVES AFTER THEM.": RETURN 
2575 N = i: GOTO 261 
2580 N = i: GOTO 261 
2585 N = i: GOTO 261 
2591 N = i: GOTO 261 
2595 N = i: GOTO 261 
2688 N = i: GOTO 261 
Hanginq routine. 

5000 COLOR= 7 

5805 HUN 10,28 AT 35: HLIN 10,2 
8 AT 36 

5010 FOR I = 8 TO 26: VLIN 6,31 AT 

i: TEXT I 
5012 CaLOR= i: VLIN 3,18 AT 19 
5815 C(LDR=8 

5020 HIN 16,22 AT 11 
5025 HLIN 16,22 AT 18 
5030 \UN 12,17 AT 15: VLIN 12,1 

7 AT 23 

5035 PLOT 17,13: PLOT 21,13: PLOT 

17,17: PLOT 21,17 
5018 HLIN 17,21 AT 16 

5815 cajaR=i 

5858 VlIN 19,38 AT 18: VLIN 19,3 

8 AT 19: «UN 19,31 AT 28 
5855 C0L0R=1 

5068 PLOT 17,28: PLOT 21,28 

5865 VLIN 21,27 AT 16: VLIN 21,2 

7 AT 22 
5878 COLQR= 9 

5875 ^UN 31,37 AT 18: ^UN 31,3 

7 AT 28 ■ 
5888 RETURN 

End of progran. 



Typii^ 

Tuiof 




Wish you were a better typist, 
but don't want to take (or pay for) 
a class? Teach yourself to type 
with the aid of your micro- 
computer. With TYPING 
TUTOR you will be quizzed and 
graded, but you set the pace at 
which you learn. TYPING 
TUTOR is a set of programs that 
lets you become as good a typist as 
you wish, allowing you to advance 
from one level to the next when 
you feel comfortable with your 
skills. 

Let "hunt and peck" slip into 
the past, teach yourself speed and 
accuracy on the keyboard with 
TYPING TUTOR. 

Level II, 16K $19.95 




6 South SI.Milford, NH 03055 (603)673-6144 
TOLL FREE OUT-OF-STATE 1-M0-258-1790 
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Board Games-1, 
CS-3001 (16K) 

• Mugwump $7.95 

Mugwump is a board game which uses 
a 10x10 grid on which four friendly 
Mugwumps are hiding. Your mission is to 
locate these mysterious animals and 
capture them. 

• Flip Disc 

Are you an Othello freak? Flip Disc is a 
program which will turn your computer into 
an excellent opponent. Three different skill 
levels, (good, expert, and genius), provide 
an introduction for the novice and con- 
tinuing interest for the experienced player. 

• Wumpus 

In game 1, you scour a network of 
underground caves in search of the prized 
Wumpus. Bagging a Wumpus wins the 
game, but if you accidentally stumble into 
his cave, the Wumpus will enjoy a tasty 
dinner of sauteed computer freak. 

• Wumpus 2 

If you master the dodecahedron cave 
network in Wumpus 1, you may proceed to 
Wumpus 2 which allows you to choose from 
five different caves, or you can design your 
own. 




• Qubic 

Qubic is a three dimensional Tic Tac 
Toe game. The game is played in a 3 
dimensional cube (4x4x4). The object is to 
outwit the computer and place four pieces 
in any straight line. 

• Baclcgammon 

This is the TRS-80 adaptation of the 
popular board game. Backgammon uses 
graphics and all the standard backgammon 
rules, not a strange computer variation. The 
computer is your opponent in this version, 
written by Scott Adams of "Adventure" 
fame. 



WRITE FOR... 

FREE 

SOFTWARE CATALOG 
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Space Games-3, 
CS-3002 (16K) 

• Ultra-Trelt $7.95 

Ultra-Trek is a fast-paced version of 
Star Trek, complete with "real time" action 
graphics, lasers, Nilon space mines, high 
energy photon torpedoes, enemy ships that 
move, and an experimental ray which does 
something different each time you use it. 
You must act quickly to save yourself and 
the Federation. 

• Star Lanes 

Imagine yourself the president of an 
intergalactic shipping company. If you're 
successful, you may be named Imperial 
Advisor on Economic Affairs. Entrepre- 
neurs: to your ships. 

• Star Wars 

If you hate Darth Vader, you'll love Star 
Wars. This real time game is fun for aliens of 
all ages. May the Force be with you! 

• Romulan 

Your mission is to destroy an invading 
Romulan space craft. Maneuver through 
space and around stars looking for the 
deadly enemy, but be careful! The nasty 
Romulans fire back. 




Air Traffic Controiler, 
CS-3006 (16K) 



S7.95 



This real time machine language 
program puts you in the chair of an air traffic 
controller. There are 27 airplanes — jets and 
prop planes — which must be controlled as 
they land, take off and fly over your air 
space. You give the orders to change 
altitude, turn, maintain a holding pattern, 
clear for approach, and land at your two 
airports. This realistic simulation includes 
navigational beacons, and requires planes 
to take off and land into the wind. Air Traffic 
Controller was written by an air traffic 
controller and is a favorite of the Creative 
Computing staff! 



For the 
SERIOUS 

Game Player 

... 

seRsatioRal 
software 



Who is Creative 
Computing? 

Creative Computing consists o1 live 
divisions serving you. Creative Computing 
magazine is the number 1 magazine of 
software and applications. Creative Com- 
puting Press publishes a wide variety of 
books, art prints, posters and T-shirts for 
the computer enthusiast. And Creative 
Computing Software produces and markets 
software on cassette and floppy disk for a 
wide variety of computers for home, school, 
and small business. 

If your dealer does not carry the full line 
of Creative Computing products, please 
send three first-class stamps for a free 
catalog of products. 
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Welcome to an astonishing new 
experience! ADVENTURE is one of 
tlie most challenging and inno- 
vative games available for your 
TRS-80. 

• Adventureland 

You wander through an enchanted 
world trying to recover the 13 lost treasures 
and encounter WILD ANIMALS, MAGICAL 
BEINGS, and many other perils and 
puzzles. 

CS-3008 TRS-80 16K Level II $14.95 

CS-3506 TRS-80 48K DISK $24.95 

(Includes Pirate Adventure) 

• Pirate Adventure 

Can you recover LONG JOHN SILVER'S 
lost treasure. 

CS-3007 TRS-80 16K Level II $14.95 

CS-3506 TRS-80 32K DISK $24.95 

(Includes Adventureland) 



• Mission Impossible Adventure 

Will you be able to complete yourmission in 
time? Or is the world's first automated 
nuclear reactor doomed? 
CS-3009 TRS-80 16K Level II $14.95 

CS-3507 TRS-80 32K DISK $24.95 

(Includes Voodoo Adventure) 

• Voodoo Castle 

Count Cristo has had a fiendish curse 
put on him by his enemies. Will you be able 
to rescue him or is he forever doomed? 
CS-3010 TRS-80 Level II $14.95 

(Available in November) 
CS-3507 TRS-80 32K DISK $24,95 

(Includes Mission Impossible) 

• The Count 

You'll love this Adventure; in fact, you might 
say it's LOVE AT FIRST BITE . . . 
CS-3011 TRS-80 Level II $14.95 

(Available in November) 
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strategy Games, 
CS-3005 (16K) 

• Tunnel Vision $7.95 

You are transported into a massive 
labyrinth and must find the exit or be lost 
forever. This is an excellent example of 
three dimensional perspective using TRS- 
80 graphics. 

• Evasion 

In this real time game, you are pursued 
around the game board by an evil-looking 
snake. Variations of play include two 
different speeds and hyper-jumps vi^hich 
randomly relocate you on the board. 
Looking for an escape? Try Evasion. 

• Jigsaw 

Jigsaw is a computer-age puzzle game 
making extensive use of TRS-80 graphics. 
The computer generates a random puzzle 
and puzzle board. Using a combination of 
deductive reasoning and luck you must fit 
the graphically represented puzzle piece 
into place. 

• The Masters 

Are you a wandering pro or just a 
Sunday golfer who would like to keep in 
practice? Once you're on the green, a 
worm's-eye view is displayed for putting. 




Motor Racing 



Motor Racing combines real time 
racing action with advanced graphics 
functions. The graphics and animation 
make Motor Racing fun to watch as well as 



y play. 



^ Pursuit Games, 
CS-3004 (16K) 

• Steele Car Race $7.95 

Stock Car Race is a real time racing 
game on a road race circuit. 

• Maze 

You are timed throughout your run and 
rated on the basis of elapsed time and the 
number of moves required to escape. Nine 
skill levels. 

• Indy Racer 

Indy Racer is a real time racing game 
for the TRS-80. Similar to the popular 
arcade-style driving games. 

• Depth Charge 

As commander of a destroyer, your 
mission is to destroy as many enemy subs 
as possible in this re-creation of the Battle 
of the Atlantic. 

• Kaleidoscope 

This graphics demonstration program 
turns your TRS-80 into a computer age 
kaleidoscope. 








Creative Computing 
IVIagazine 

Creative Computing has long been 
Number 1 in applications and software for 
micros, minis, and time-sharing systems 
for homes, schools and small busi- 
nesses. Loads of applications every 
issue: text editing, graphics, communi- 
cations, artificial intelligence, simula- 
tions, data base and file systems, music 
synthesis, analog control. Complete pro- 
grams with sample runs. Programming 
techniques; sort algorithms, file struc- 
tures, shuffling, etc. Coverage of elec- 
tronic and video games and other related 
consumer electronics products, too. 

Just getting started? Then turn to our 
technology tutorials, learning activities, 
short programs, and problem solving 
pages. No-nonsense book reviews, too. 
Even somefiction and foolishness. 

Subscriptions; 1 year$15, 3years $40. 
Foreign, add $9/year surface postage, 
$26/year air. 



Basic Computer Games 

Edited by David Ahl, this book con- 
tains 101 imaginative and challenging 
games for one, two, or more players — 
Basketball, Craps, Gomoko, Blackjack, 
Even Wins, Super Star Trek, Bombs 
Away, Horserace. Simulate lunar land- 
ings. Play the stock market. Write poetry. 
Draw pictures. 

All programs are complete with listing 
in Microsoft Basic, sample run and 
description. Basic conversion table in- 
cluded. 125,000 copies in print. 192 pages 
softbound.[6C]$7.50. 




More Basic 
Computer Games 

Contains 84 fascinating and enter- 
taining games for solo and group play — 
evade a man-eating rabbit, crack a safe, 
tame a wild horse, become a millionaire, 
race your Ferrari, joust with a knight, trek 
across the desert on your camel , navigate 
In deep space. 

All games come complete with pro- 
gram listing in Microsoft Basic, sample 
run and description. 192 pages soft- 
bound. [6C2] $7.50. 

^s • 
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The Best of 
Creative Computing 

The first two years of Creative Com- 
puting magazine have been edited into 
two big blockbuster books. American 
Vocational Journal said of Volume 1, 
"This book is the 'Whole Earth Catalog' of 
computers." [6A] Volume 2 continues in 
the same tradition. "Non-technical in 
approach, its pages are filled with infor- 
mation, articles, games and activities. 
Fun layout." — American Libraries. [6B] 
Each volume$8.95. 




Computer Coin Games 

Computer Coin Games by Joe Wels- 
becker aids newcomers to the field of 
computers by simplifying the concepts of 
computer circuitry through games which 
can be played with a few pennies and full 
sized playing boards in the book. 
Enhanced by outrageous cartoons, 
teachers, students and self-learners of all 
ages will enjoy this 96 page softbound 
book.[10R]$3.95. 



How To Order 

Send order and payment to Creative 
Computing, P.O. Box 789-M, Morris- 
town, NJ 07960. Add $1 .00 shipping and 
handling per order (foreign, $2.50) N.J. 
residents add 5% sales tax. Visa, 
MasterCharge and American Express 
orders welcome. For faster service, call 
in your bank card order toll free to: 
800-631-8112.(ln NJ, call (201) 540-0445.) 
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CHANGING HEARTS 




by Stan Ockers 

CHANGING HEARTS is an 
Atari program requiring 8K of 
memory. 

"CHANGING HEARTS" is a 
version of the puzzle also known 
under the name "Teaser" or 
"Shooting Stars." The object is to 
go from a pattern of dark hearts 
surrounding a light colored heart 
to one where light colored hearts 
surround a dark one. As you select 
individual hearts, different groups 
of hearts will be complemented 
depending on your choice. 
Selecting a corner will change four 
hearts in a square including that 
corner. Choosing a heart at the 
middle of an edge will reverse all 
hearts along that edge. Finally, if 
the central heart is chosen, all 
hearts in a cross will be switched. 

The first challenge is simply to 
solve this puzzle without losing any 
hair. A higher challenge is to solve 
it in the fewest moves possible. 
Supposedly, this number is eleven. 
If at any time you wish to return 
to the starting position, press the 
letter "I", (initialize). This will cost 
you a turn, however. 

You can save yourself a lot of 
typing from omiting the 
instructions, (lines 1000-1110), and 
deleting line 60. 

Of interest to programmers will 
be the extensive use of strings to 
hold integer numbers (0-255). 
There are a number of good 
reasons for doing this. First, a 
single character in a string requires 
much less memory than a number, 
(two bytes compared to seven). The 
numbers can be retrieved easily 
using Atari's string splitting 
convention (see line 900). String 
comparison is also useful for 
comparing entire groups of 
numbers at once. Notice how easy 
it is to check for a win or loss in 
lines 250 and 260. The numbers are 
entered into strings as control 
graphics. 

Many lines in" Changing Hearts" 
contain special control characters 
which DO NOT show up in this 
listing. To enter these special 
characters, hold the control key 
down while typing the upper case 
letters and the commas below: 
Line 30: P$ should contain 
64 



HCJCLCHEJELEHGJGLG 

Line 40: G$ contains ABDE,ABC, 

,BCEF,ADG„BDEFHCFI, 

,DEGH,GHI„EFHI 

Lines 410-440 contain graphics in 
their PRINT statement as follows: 
Line 410: QRWRWRE 
Line 420: ARSRSRD 
Line 430: ARSRSRD 
Line 440: ZRXRXRC 

In lines 1000 and 1010, there 
should be two control commas 
(heart characters) in each line 
PRINT statement. The first one 
after the open parenthesis 
character, and one before the 
closing parenthesis. The first heart 
in line 1000, and the second one in 
line 1010, should also be typed in 
reverse video, as should the word 
"light" in lines 220 and 1010. 

PROGRAM EXPLANATION 

Lines 10-40: The keyboard is 
opened for input to get keys 
without requiring a RETURN. 
Various strings are initialized. See 
the instructions for special 
comments concerning P$ and G$ 

Lines 50-60: Title — The hearts 
blink in and out because of the 
POKEs which change from 
upper-case to lower-case 
graphics mode and back, (POKEs 
into 756) 

Lines 170-180: Initialize game — 
The board is printed along with the 
initial heart configuration. 
Line 190-270: Main loop of game 
— Gets player selection, checks for 
legal move, flashes appropriate 
group and 

complements hearts in that group, 
checks for winning or losing 
situations and repeats. CHR$(125) 
clears the text area. 

Lines 300-310: Advises of a 
losing condition 

Lines 350-380: Acknowledges a win, 
small demonstration, asks if repeat 
wanted. The POKEs into 708 are 
another way to change colors (color 
register 0). The POKEs into 656 and 
657 align the cursor in the text area 
(row and column). The POKE into 
76 clears the last key byte. 

Lines 400-450: Subroutine to 
print the board. The SETCOLOR 
4,2,8 is necessary so the 
background hearts in graphics 

SoftSide FEBRUARY, 1981 



mode 2 don't show because they 
are the same color as the 
background. The SETCOLOR 
3,4,10 makes the light hearts 
especially light so they show up 
well on a black and white TV. 
CHR$(124) creates the vertical 
lines, completing squares. The 
POKE into 752 blanks the cursor. 

Lines 500-550: Subroutine to put 
hearts on the board. Flag F 
controls the configuration printed 
as described under variables. 

Lines 600-620: Subroutine which 
flashes hearts in a group 
determined by the number selected, 
N. The subroutine then 
complements these hearts. 

Lines 700-730: Delay subroutine 
used during instructions and in 
winning and losing routines. Delay 
determined by point where entered. 

Lines 750-770: Keyboard input 
subroutines which prompts and 
waits for any key to be pressed. 

Lines 800-850: A subroutine 
which operates on a group of 
positions determined by the 
number N. Hearts may be printed, 
erased or complemented depending 
on the flag F. 

Line 900: Subroutine to retrieve 
screen positions from string P$. 

Line 1000-1110: Instructions 
subroutine — Gives instructions 
through demonstration so it uses 
other subroutines, setting flags 
accordingly. 

VARIABLE LISTING 

B$, D$: Hold bright and dark heart 

control characters. 

H$: Holds the heart pattern presently 

on the screen. 

F$: Holds the finishing heart pattern 

for comparison for a win. 

L$: Holds the losing heart pattern 

(all dark). 

S$: Holds the starting heart pattern 

(dark surrounding a center light 

heart). 

N$: Holds the numbers to be printed 

during instructions to show heart 

positions. 

I,J,K,L: General variables. 

K: Key pressed. 

T: Turn number. 

F: Flag. 

In subroutine 600-620 controls 
the configuration printed on the 
screen: (l)present (2)starting 



(3)finishing (4)location (5) losing. 

In subroutine 800-850 determines 
if hearts are to be: (l)erased 
(2)printed (3)complemented. 
N: Number of the hearts chosen (1- 
9). 

SN: Save N (must be recovered at the 
end of the subroutine). 
H: Heart character from the screen. 
X,Y: Horizontal and Vertical 
positions of the screen. 
C: Count used in delay subroutine. 



10 DIM P»(18),G$(15),B$(1),D*(1),H$(9) 
,F$(9),Lt(9),S$(9),l«(9):0F€N *l,t,0," 

k:" 

20 D$=CHRi(160):B$=CHR$(128);FOR 1=1 T 

9:L»(i)=Dt;F«(i)=et;NEXT i:st=L»js$( 

5,5)=E;t!F$(5,5)=D$ 

30 P$="See above for P$ "tN»="1234567 

89" 

10 Gt="See above for G$" 

50 GRtffffCS 2:F0Sni0N 2,5!? ♦6;"CHANG 

m hearts":for 1=3 to 6:setcolor 0,1, 
v.mm o,RW)(0)iio+io,io,8 

55 GOSUE: ZlOiPOKE 756,226!S0UND 0,RND( 
0)x10+10,10,8!GOSUE 710:POKE 756,22V,H 
EXT ItSOUffl) 0,0,0,0 
40 POKE 752,1:? :? ,"Need Instructions 

?":?," ( Y or N )":get «i,k:if K=8 

9 THEN GOSUE 1000 

170 T=0 

180 H$=S»:GOa)B 1flO;F=2:GOSUE: 500 

190 T=T+1 

200 ? CHR*( 125); "Turn * "(Tt? "Pick a 

nuHber (1-9)" 

210 GET ♦1,K:N4M8!IF N=25 THEN 180 

215 IF N<1 OR N>9 THEN 210 

220 GoajB 90o:get *6,h:if h=160 then ? 

CHR$(125)!? :? "You nay only pick lig 
ht hearts, ":G0SUE! 760:GOTO 210 
250 GOSUE; 600:IF H»=L$ THEN 300 
260 IF Ht=F» THEN 350 
270 GOTO 190 

300 FOR S=30 TO 190:SOIM) 0,S,10,8:NEX 
T StSOJM) 0,0, 0,0 J? CHR'*(125):? "Sorry 
, there's no way out I ! !":GOSUEi 750 
310 GOTO 370 

350 ? Clf,-$(125):FC»; J=0 TO HIPOKE 708 
,4+16xj:S0U>a) 0,50-2iJ,10,8tGOSUB 730! 
Ftt(E 708,'»0:GOSIB 730 

351 NEXT J:S01M) 0,0,0,0 

360 ?m. 656,1:P0KE 657,10!? "CONGRATU 
LATIONS I!!"!? "You did it in ";T!" tu 
rns."!GOSUE! 750 

370 POKE 761,255!? CHR*(125)!? !? "Car 
e to try again? (Y or N)"!GET *1,K:IF 
K=89 THEN 170 

380 ? "Th3ri',s for the q3iw."!EW) 
100 GRAFWCS 2!SETC0L0R 1,2,8!SETC0L0R 
3,1,10;F'OKE 756,226:P0KE 752,1 
110 POSITION 7,2!? *6!"" 
120 POSITION 7,1!? #6!"" 
130 POSniON 7,6!? *6!"" 
HO POSmON 7,8!? #6!"" 
150 FOR X=7 TO 13 STEP 2!F0R Y=3 TO 7 
STEP 2!P0Sni0H X,Y!? »6;CHR$(121){!NE 
XT YiNEXT X!RETURN 



510 IF F=2 THEN 
520 IF F=3 THEN 
530 IF F=1 THEN 
510 IF F=5 THEN 



710 
720 
730 



500 FOR N=l TO 9!G0SUB 900!F F=l THEN 
? *6;H$(N,N); 

♦6;s$(N,N); 
*6;f*(n,n); 
*6;n«(n,n); 
♦6;l*(n,n)j 

550 NEXT N!RETURN 

600 FOR L=l TO 5!F=1:G0SUE: 800!SOUM3 

,5)I!N+50,10,8!F=2:GOSUB 800!SOUND 0,5)«N 

+80,10,8 

620 fOT L!SOUND 0,0,G,0!F=3!GOSUB 800 

!RETURN 

700 FOR K=0 TO C!NEXT K!RETURN 

C=150:GOTO 700 

C=1000!GOTO 700 

C=30!GOTO 700 
750 POKE 761,255!? , "(Press any key)"! 
760 IF F'EEK(761)=255 THEN 760 
770 RETURN 

800 SN=N!J=5)«(N-1)!F(»; 1=1 TO 5!N=ASC( 
G«(J+I)):iF N=0 THEN 850 
810 GOSUE: 900!IF F=l THEN ? *6!" "', 
820 IF F=2 THEN ? ♦6!Ht(N,N); 
830 GET #6,Z!IF F=3 AND Z=160 THEN POS 

iTiON x,Y!? *6;b$;;h$(n,n)=b$ 

810 if f=3 and z=128 then position x,y 

!? »6;d$;!h$(n,n)=d» 

850 NEXT I :N=SN: RETURN 

900 X=ASC(P$(2xN-l))!Y=ASC(P$(2iN))!P0 

siTioN x,y:return 

1000 H$=S*:G0SUE: 100:F=2!GOSUt: 500!? " 
Go frort this pattern ..,"!? ,"('5 aro 
irid )"!GOSUE; 750 

1010 F=3!G0SUEi 500!? ™$(125);"To thi 
s pattern Cs arourid )"!? "by choosi 
ri9 light hearts. "!GOSUB 750 

1020 GRAF'HICS 2!F=1!G0SUB 500!POKE 752 
,1!? "These are the position riufibers." 
!? "Different groips of hearts will be 

II 

1030 ? "reversed depending on your cho 
ice."!GOSUB 750:F=2!GOSUE: 100!GOSUB 50 


1010 ? "If you pick the center square, 
the"!? "hearts in a cross will be rev 

ersed." 

1050 GOSUB 720!N=5!GOSUe 600!GOSUE; 750 

!? CHR*(125);"If you choose the Middle 
square on" 

1060 ? "an edge, the whole edge will b 

e"!? "reversed. "!GOSUE! 720!N=8!GOSIB 6 

00!GO9JEi 750 

1070 ? CHR$(125)!"If you pick a correr 

, 3 square"!? "including that corner w 

ill be"!? "reversed" 

1080 GOSUB 720!N=7:GOSUB 600!GOSl*i 750 

!? CHRii(125);"If you end up with all d 

ark hearts"!? "yoLi lose ll!"!F=5 

1090 GOSUe 500!GOSUB 750!? CHR$(125);" 
Hit the 'I' key to get back to the"!? 
"initial position." 

1100 ? "Uriderstand the instrLictiorrs?" ! 
POKE 761,255:GET *1,K!IF K089 THEN 10 
00 ^ 

1110 RETURN ^ 




Im| bfeeze 
computing 



A Merlin for 
Scrambled 
Disks M 



If you thought SuperZap was something, 
wait until you get your hands on SUPER 
UTILITY! Possibly the most powerful 
utility program on the market for your 
S-80, SUPER UTILITY permits you to; 

* Automatically repairs a scrambled 
directory by fixing both HIT and GAT 
tables; 

* Format a disk without erasing data 
files; 

* Format or backup virtually any disk 
except itself; 

* Recover killed tiles; 

* Purge a disk; 

* Execute a complete Directory 
check; 

* Repair bootstrap function; 

* Totally ROM independent; 

* Plus other features too numerous 
to mention. 

S-80 16K Disk $49.95 



l^S^fil ^g^ 




6 South St .Milford, NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-800-2M-1790 
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OUT OF SORTS? 




by George Blank 

Why does an aardvark sit in the 
front row while a zebra gets stuck 
in the back of the room? Should 
school grades run from F for 
fantastic to A for awful? What 
kind of name does it take to be the 
last person in the phone book? 

A few anarchists would prefer 
the telephone book in random 
order. Some people with last 
names like Zylinski would like to 
turn the world upside down. The 
rest of us are well served by 
putting things in order. For 
example, the post office finds it 
easier to send our mail to the 
wrong address if we give it to them 
in zip code order. 

Unfortunately, putting things in 
order is seldom fun. How would 
you like a monthly job taking 
30,000 mailing labels for 
SoftSide and hand sorting them by 
zip code? The ideal solution would 
be to find someone or something 
too stupid to realize that 
alphabetizing a card catalog is 
not the most fulfilling way to 
spend a lifetime. No sooner is the 
job description announced than 
100,000 volunteers step forward! 
Your computer would be delighted 
to pause in the never ending battle 
against the Klingon Empire to 
organize your Christmas card list. 

Sorting is not a new topic for a 
computer magazine. It is needed in 
so many different programs that 
there are hundreds of publishing 
articles and lots of confusing 
names like Shuttle, Bubble, Ripple, 
Shell, Tree, Quick, and Quicker 
sorts. There are so many that it is 
hard to pick one to alphabetize the 
list. How do they work and which 
should we use? 

We can quickly narrow the field. 
If you are working in a powerful 
languge such as APL, there are 
single commands such as grade up 
and grade down for sorting, and 
we really don't need to know much 
about how they work. Even 
BASIC on some high priced 
computers has built in sort 
functions such as IBM's ASORT 
( ) function. 
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However, if you are working on 
a small personal computer with 
limited memory, there are only a 
few practical sorting methods. I 
would like to explain them, offer 
you programs that display three 
sorts in action, and offer tips on 
using them. 
THE TRIVIAL SORT 

A good place to start is with the 
trivial case. If you have two items, 
the way to sort them is to compare 
both items, and exchange them if 
they are in the wrong order. All 
other sorts start at this point. Here 
is a sample program: 

10 INPUT A 

20 INPUT B 

30 IF A < B THEN 70 

40 LET T = A 

50 LET A = B 

60 LET B = T 

70 PRINT A, B 
There are a few things to notice 
about this program. First of all, it 
sorts the two values in ascending 
order, from smallest to largest. If 
A is already smaller than B, this is 
discovered in line 30 and the sort is 
finished. If A is larger than (or 
equal to) B, then the two values 
are exchanged in lines 40 to 60. If 
we wanted to sort in descending 
order, all we would have to do is 
change the text in line 30 to: 

30 IF A>B THEN 70 
If we wanted to avoid 
unnecessary exchanges when the 
two values are equal, we could use: 

30IF A<= B THEN 70 



or 



30IFA>= B THEN 70 



Another thing to notice about 
the trivial sort is the procedure for 
exchanging values. The value T is 
a temporary or holding value. In 
order to understand what it is for, 
pick up two objects, perhaps two 
glasses of beer. With one in each 
hand, place the objects in the 
opposite hands. The easiest way to 
do it is to set the first one down, 
transfer the second one to the 
other hand, and then pick up the 
first object again. The temporary 
variable is simply a place to set 
down one variable in order to 
work with the other. Some 
BASICS offer a command like 
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SWAP to exchange variables 
directly, but in most of them a 
holding variable is necessary. 

Alphabetizing string variables 
works in exactly the same way. I 
am using simple numerical values 
in my examples to save typing 
time, but all you have to do is use 
the same routines with string 
variables to sort alphabetically. 
Here is our trivial sort: 

10 INPUT A$ 

20 INPUT B$ 

30IF A$<B$THEN70 

40 LET T$ = A$ 

50 LET A$ = B$ 

60 LET B$ = T$ 

70 PRINT A$, B$ 
If you want to sort in reverse 
alphabetical order, use: 

30 IF A$ > B$ THEN 70 
If you have only two items to 
sort, this program could solve your 
problem. Unfortunately, a 
computer is not very efficient at 
sorting two items. It is usually 
better to do that by hand. 
Therefore, let us move on to more 
complex sorts. 
THE BUBBLE SORT 

The simplest ordinary sort is the 
Bubble Sort. It works by starting 
with the first item in the list and 
comparing it to every other item, 
exchanging items every time it 
finds on smaller (or larger, if it is 
a descending sort). After the first 
pass, the smallest item is in the 
first variable. Then the computer 
takes the second variable and 
compares it with the rest of the 
list, then the third item, and so on 
until it comes to the next to last 
item in the list. This is the working 
section of a Bubble Sort of N 
items in array A(N): 

100 FOR A = 1 TO N-1 
110 FOR B = A + 1 TON 
120 IF A(A) < A(B) THEN 160 
...(exchange routine goes here) 
160 NEXT B 
170 NEXT A 

If you would like to see the 
Bubble Sort in action, here is a 
program that displays it visually on 
the S-80 computer. The display 
program displays an array of ten 
items across the top of the screen, 
and uses labelled arrows to point 



to the index variables A and B. 
Each time two values are 
exchanged, the exchange is shown 
on the screen, even down to the 
holding variable. There is a timing 
loop to allow you to select the 
speed of the display. 
(See Figure 1) 

The Bubble Sort is short and 
simple. If you have a relatively 
small list to sort, it will probably 
solve your problems. 
Unfortunately, it is not very 
efficient, and if you have a long 
list to sort, it will take a lot longer 
than more efficient sorting 
methods. 
THE RIPPLE SORT 

Another simple sort is the Ripple 
Sort. Although it is not 
significantly more efficient than 
the Bubble Sort, I like it better 
philosophically, for it always 
exchanges variables in the direction 
of their final placement. The 
Bubble Sort jumps around all over 
the place, as can be seen from the 
demonstration program. 

The Ripple Sort passes through 
the list, exchanging any adjacent 
values that are in the wrong order, 
then passes through again. In an 
ascending sort, large values are 
pushed to the end, while small 
values ripple to the beginning. 
Since at the end of the first pass, 
the largest value is already at the 
end, the second pass ends at the 
next to last position, and each pass 
is one location shorter. Since the 
Ripple Sort never swaps variables 
away from their final position as 
the Bubble Sort does, a test can be 
included to see if any swaps were 
made during the last pass, so that 
the routine can be terminated if no 
swaps are made. Thus a Ripple 
Sort only needs as many passes as 
there are positions in the array 
between the starting and ending 
locations of the element that is 
furthest from its proper location. 

(See Figure 2) 

THE SHELL SORT 

The weakness of the Ripple Sort 
lies in the fact that if the smallest 
number just happens to be in the 
last position (in an ascending sort), 
it takes one less pass than there are 
elements in the array to sort the 
array. On large arrays, it is more 
efficient to sort small sections of 
the array at a time. Most of the 
high speed sorts, such as 
Quicksort, Heap Sort, and the 
Shell Sort, work by setting up 
pointers to segment the array, and 



then sorting each segment, merging 
it into the larger list. 

Before I talk more about the 
Shell Sort, let me dwell on this 
concept. If you are constantly 
adding data to a large list, it is far 
more efficient to sort a small list 
of additions and merge them into 
the larger list than it is to resort 
the large list each time. To show 
you how it is done, let us suppose 
that you have a sorted name list in 
a sequential disk file called 
NAMES, and have just sorted a 
list of additions and stored them in 
a sequential file called 
NEWNAMES. You want to 
combine them and put them in a 
file called COMBINED. You 
would need a subroutine or 
program to read in the data from 
each file (NAMES and 
NEWNAMES) and write out the 
data element that comes first to 
COMBINED. Then you would get 
another entry from the file where 
you got the data that was written 
out and compare again. You 
would have to check each time for 
the last entry in the file and write 
out the rest of the other file when 



you came to the end of the first 
one. 

The most familiar Shell Sort to 
the microcomputer fraternity is a 
clumsy implementation by Metzner 
that was printed in Creative 
Computing years ago and then later 
appeared in Kilobaud. I mention this 
because many people are under the 
mistaken impression that the Shell 
Metzner Sort is an improved 
algorithm when in fact it is a slow 
implementation with bad style. 
Our demonstration program uses a 
more efficient implementation by 
Russ Walters. (See Figure 3) 

In order to spare you the trouble 
of removing the displays from the 
various sorts in order for you to 
use them, I have put all three of 
them in separate subroutines in a 
demonstration program. Feel free 
to use or modify them as you 
wish, and note that these 
algorithms are specifically in the 
public domain. You do not have to 
give credit when using them, and 
you are free to use them for any 
purpose without royalty or 
payment. (See Figure 4) 



FIGURE 1 


U REM X yiSBLE BUBBLE SORT x GEOR(^ BLtf»( « 11/28/80 i 

20 cls:dih A(io);n=io 

30 FOR F=l TO N 


10 A(F)=RND(99) 
50 NEXT F 


60 CLS:Z=5:iNPUT"SPttD (1=SL0H TO 10=FAST)";Z 
70 IF Z<1 OR Z>lfl THEN 60 


80 Z=(11-Z)X50 

90 CLs:s=o 

100 PRINT,"WIR« F SORT DEMONSTRATOR" 


110 FOR F=lT010:PRINTe61+6xF,F;:PRINTei25+6xF,A(F);:NEXTF 

120 FDR A = 1 TO N-1 

130 FOR B = A+1 TO N: PRINTei96,CH»(31) 


HO Dl=190+6xA:D2=190+6xBJPRINIH)l,"[";:PRINTeOl+61,"A" 
150 PRIKTH)Z,"["J:PRINTH)2+61,"B"; 
160 IF A(A)<=A(B) THEN 250 


170 PRINTe332,"NGH aWPING"A" HITH "B 

180 s=s+i;pKiNTe5i,s;" aw^"; 
190 FOR f=itoz:next f 


200 PRINTeOl-65," ";:PRINTe396,"Hni DING VARIABLE ="A( A) 
210 FOR F=1T0Z:NEXT F:PRINTeD2-65," ";:PRINTH)1-65,A(B); 

220 FOR f=itoz:next f 


230 t=a(A):a(A)=a(B):a(B)=t 
210 prints 02-65, a(b); 

250 FOR F=1T0ZJNEXT F 


260 NEXT B 

270 NEXT A 

280 PRINT 8256, "SORT COWIETE" 

continued on next page 
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continued from previous paee 

FIGURE 2 


FIGURE 4 




10 REM X yiSIBLE RIPPLE SORT i GEORGE BLANK i 11/28/80 i 






20 cls:di« A(ifl):N=ifl 


10 REM X THKtk SORTS x GEORGE BLANK x 12/2/80 x 




30 FOR F=l TO N 


20 cls:n=ii:dih a(N) 




% A(F)=RND(99) 






50 NEXT F 


30 PRIMT"NEH DATA" 




60 CLS:Z=5:D»Vr"SPEE0 < 1 = SLOW TO 10 = FAST )";z 


10 FOR F=l TO N 




70 ff Z<1 OR Z>10 TtCN <iO 


50 A(F)=«M)(99) 




80 Z=(ll-Z)i50 


60 PRINT A(F) 




90 CLS : S=0 


70 NEXT F 




100 PRINT,"RIPPLE SORT DEMONSTRATOR" 


80 PRINTe71,"l. RIIRHFSORT"; 




110 FOR F=lT010:PRINTe61+6iF,Fj:PRINTei25+6iF,A(F);jNEXTF 






120 FOR C = 1 TO N-1 ! aAG = 


90 PRINTK02,"2. RIPPLE SORT"} 




130 FOR B = 1 TO N - C: A=6+l :PRINTei96,CHR$(31) 


100 PRINTe330,"3. SHELL-HALTERS SORT"} 




MO Dl=190+6iA:D2=19fl+6«e:PRINTeDl,"C";:FRINTeOl+61,"A" 


110 PRINTM58,"YGUR CHHTTF?"; 




150 printh)2,"[";:printh)2+61,"B"; 






160 ff A<B)<=A(A) THEN 260 


120 I$=INKEY»:FI$=""THEN120 




170 FLAG=1 


130 I=VW.(I$):IFI<1 OR D3 THEN as ; EM? 




180 PKD{Te332,"H0H SyW>PING"A" WITH "B 


110 ON I \mn 1000,2000,3000 




190 S=S+1!PRI?{T051,S;" SWAPS"; 






200 FOR f=itoz:next f 


150 PRINTM8, "SORTED DATA"; 




210 PRINTeOl-65," ";:PRINTe396, "HOLDING VARIABLE ="A(A) 


160 FOR F=1T0N 




220 FOR F=1T0Z:NEXT F:PRINTe02-65," ";:PRINTe01-65,A(B); 


170 PRINTei8+Fx61, A(F); 




230 FOR f=itoz:next f 






210 t=a(A):a(A)=a(B):a(B)=t 


180 NEXT F 




250 PRINT? D2-65,A(B); 


190 WISIIB710 




260 FOR f=itoz:next f 


200 RUN 




270 l€XT B 


210 FOR F=lT05flOO:(OT FtRETURN 




280 ff FLAG=1 then fEXT C 


999 REM X BIIRRF SORT x 




290 PRINT 8256, "SORT COMPLETE" 


1000 PRINTK86,"BURH F SORT DEMONSTRATOR"; 




FIGURE 3 


10 REM X VISIBLE SHR 1 SORT i GEORGE BLAM< x 11/28/80 x 


1010 FOR A = 1 TO N-1 




20 REM X PREPARE SAMPLE DATA x 


1020 FOR B = A+1 TO N 




30 cls:dim a(io):n=io 


1030 F A(A) <= A(B) THEN 1050 




10 FOR X=l TO N 


1010 T=A(A) : A(A)=A(B) 5 A(B)=T 




50 A(X)=RND(99) 


1050 NEXT B 




60 NEXT X 






70 CLS:Z=5;INPUT"SPEED (l = slow to lO = FAST)"5Z 


1060 NEXT A 




80 IF Z<1 OR Z>10 THEN 70 


1070 RLIURN 




90 Z=(ll-Z)x50 


1999 REM X RIPPLE SORT x 




100 CLS ; s=o 


2000 PRINTre86,"RIPPLE SORT DEMONSTRATOR"; 




no REM X SORT ROUTINE x 






120 PRINT, "SHFIl SORT (WALTERS) DEMONSTRATOR" 


2010 FOR C = 1 TO N-1 : FLAG = 




130 FOR F=lTO10!PRINTe61+6xF,F;:PRINTei25+6xF,A(F);5NEXTF 


2020 FOR B = 1 TO N - C; A=B+1 




m C=N 


2030 F A(B)<=A(A) THEN 2060 




150 C=INT(C/3)+l ; GUSUB 310 






160 FOR A=l TO N-C : GUStJB300 


2010 FLAG=1 




170 iaiHF310;iF A(A)<=A(A+C) THEN 250 


2050 T=A(A) : A(A)=A(B) ; A(B)=T 




180 s=s+i:pRiNTe50,s;" shaps"; 


2060 NEXT B 




190 T=A(A4C):GOaJB370:F=A+C:GOStJB350:B=A:GOSlJB33fl 






200 F=8:GOSlJB350:A(B+C)=A(B);F=8+C:T0=A(F)JRnSIJB360 :B=6-C 


2070 F FLAG=1 TVCN NEXT C 




210 PRIMT«H," "! 


2080 RETURN 




220 F B>0 THEN RnS)IB330 ', IF T<A(B> THEN 200 


2999 REM X SHELL-WALTERS x 




230 PRINTe532,CHR$(30) 






210 GOSUB320:A(B+C)=T:F=8+C:T0=T:GOSUB36fl 


3000 PRMe586,"SHRI -MITERS SORT DEMONSTRATOR"; 




250 NEXT A 


3010 C=N 




260 F Ol THEN 150 


3020 C=INT(C/3)+l 




270 PRIMTB512,"S0RT D»t" 






280 DC 

290 REM X SUttN DISPLAY RIIPRQUTINES x 


3030 FCK A=l TO N-C 




3010 F A(A) <= A(AH:) TIEN 3090 




300 PRINTei92,CHR$(30);:Dl=19fl+6xA!PRINTeOl,"[A"5:GOTO380 


3050 T=A<A+C) ; B=A 




310 PRINTe256,CHR»(30);:D2=251+6x(A+C):PRINT«)2,"[A+C"j:GOTO380 






320 PRINTe320,Ct««(30);:D3=318+6x(B+C):PRIMTeD3,"CB+C";:GOT0380 


3060 A(B+C)=A(B) ! B=8-C 




330 PRINT8381,CHR$(30)*,JD1=382+6xB!PRINTeO1,"[B";:GOTO380 


3070 IF B>0 THEN F T<A(B) T»£N 3060 




31flPRINTei18,CHR$(30);:D5=116+6xCJPRINTeD5,"[C";:GOTO380 


3080 A(B+C)=T 




350 PRINTei25+6xF," ";tGOT0380 






360 PRINT8125+6xF,TO;:GOT0380 


3090 NEXT A 




370 PRINTe532, "HOLDING VARI/CLE =";T 


3100 F Ol THEN 3020 


® 


380 FOR x=itoz;nextx:return 


3110 RETURN 
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TANKS-A-LOT 



by Mark Koenig 

Tanks-a-Lot is an S-80 program 
which requires at least 16K of RAM 

Your opponent lies just over the 
horizon. Today is the day you've 
wondered about for so long. You 
know your opponent will be trying 
to second guess your every move. 
Will you be the victor at the end of 
the day? Your life depends on it. 
"Tanks-a-Lot" is a two player 
game in which each player is a 
tank commander trying to destroy 
the other. Here are the control 
keys for the two commanders. 



Left Commander 

Forward D 

Fire F 

Rotate Right S 

Rotate Left A 



Right Commander 

Forward L 

Fire ; 

Rotate Right K 

Rotate Left J 



"Tanks-a-Lot" Variables 

AS: Tank image strings. 

AB: STRINGS (80,32) used to 

erase portions of screen. 

AW: STRINGS (80,191) used to 

fill portions of screen. 

B1-B7: Keyboard scan addresses. 

C1-C2: Tank rotation variables. 

E: Misc. logic. 

I: Movement variable. 



IK: Time delay. 

K$: CHRS (140), bullet character. 

L1-L2: Read variables used for 

erasing screen. 

OS: Name of player #1. 

PI: Number of hits player #1. 

P2: Number of hits player #2. 

Q: Display winner string. 

SS: Erase position string. 

SAS: STRINGS (3,24), used for 

positioning of tanks. 

T: PEEK address of tank #2, 

T$: Name of player #2. 

TW: Location of tank #2. 

U: PEEK address of tank #1. 

UN: Location of tank #1 . 



1 



■ T AHKS-A-LOT i 

iFORATRS-80 16Ki 
I BY NM«< KOENIG - SmQNGSVILi£,0.i 
IHRITTEN 11/27/ 88 i 
' «««ni»i««»»i««iiii«iiiii«ii«i«i»n 

Lines 21-71: Initialize variables including qraphic strings* 



2tCl£M)SII(i:DEFSTRA,K,S;A(l)<HR«(188)4CHR$(191)4af»(188):A(2)= 
0«»(191)+CHR»(191)40l»(l«)JA(3)=OI»(H3)4CHR«(191)4a««(113) 
5A(1)=<HR»(M0)+a«»(191)+CH»(191):A(5)<HR«(188)+CHR$(179)+a« 
<(188):A<6)CH»(191)HH»(179)+CHR»(l«)tPl=05P2=0 
31 K<HR»(110) :A(7)=ait$(H3)+CHRt(179)-H»«(113) :A(8)OI»(HO) 
+CW»(179)+€H»(191) :CLS5PRINn<«(21) ;"TANKS-A-LOT"JDfUT''NA«E 
OF PLAYER l";0»:iHPUT"NA»t OF PLAYER 2";U 
5ISA=STRII«*(3,2'»):S(0)=CHR$(191)*CH»(131)+CHR$(191)+CHR$(26)+ 
SAHMt»(H3)+CH»(H0)+C«»(H3):S(l)=" "+CH»(191)+CH»(26)+a« 
♦(21)4C«»(M3)!S(2)=CH»(179)+CH»(179)40I»(191)4CH»(26)+SAC 
l«((113)4CHR«(lie)4CHRt(110) 

52S(3)<»»(131)+ai»(179)+CHR$(191)+CH»(26)+SA+CHR»(lH)+CHR« 
(110 )+CH»( 143) JS(1)<HR*( 191 )+€«»< 176)4€H»( 191 )+CH»(26)+SA+" 
"+ai»(143)JS<5)=C«»(191)+OI»(179)+CH»(179)4a««(26)+SA«« 
«(110)4Oi»(140)4CHR$(143) 

51S(«)=<»l»(191)+CHR«(179)4CHR«(179)+CHR*(26)+SArtH»(M3)4CH» 
(lH)4CHR»(113):S(7)=CHW(131)*CH»(131)4CHR»(191)+0«(26)+C»» 
(21>'K»$(143) 

56S(8)=C«»(m)+CHR»(179)+CHR»(191)+CHR»(26)+SA+CHR$(H3)*C«» 
(110 )4CHR$( 113) :S(9)<HR»(m )4CHR»(179)40I»( 191 )*CHR«(26)+CH» 
(21)-tCH»(113) 

61 DfUTIOT ENTEK TO BEGIN";E« 
6S (lS:Mt=SmO(G«(80,191):Ae=STRINGt(80,32)'.GOSUB1000 
70 Bil=11337:B2=113385B3=11310 :B1=1131i;B5=11352:B6=11368tB7=1110 
l5lM>=195:™0=889:S=STiaHI»(3,32) :C1=2 J(2=8;X=1 tGOaB570 
81 in(=lT)CN90aSa20 

9IX=-X:iFPEEK(B7)=16THEN10flELSEIFPEEK(Bl)=2Tf€N120ELSEIFPEEK(B3 
)=8MN110ELSEIFPEEK(Bl)=16Tl€M190aSE80 

Lines lOO-UO: (3ieck for rotation change> then print tark tl. 

100 1FC1=1M)C1=1ELSECK1-1 
110 PRINTnND,A(Cl)nGOT080 

Lines lZt-13«! Sane as 100-110 except tank *2. 

120 FC1MM)C1=1ELSEC1<U1 



130 PRIineUNO,A(Cl)$:GOT080 
110 ONClGOTO150,160,170,180 

Line ISO-IBOS Oneck for novenent. 

ISO U=(NKlS360:F(UNO>63)AN)(PEEX(l>-61)=32)AM)(PEEK(li-63)=32)M( 

D(PEEK(U-62)=32)T)CNPinNT«UN0,S; :iMMM}-61!PRIKTaM), A(C1 ) ; !GOT 

080ELSE80 

160 F(UN0+3)/61OINT((UN0t3)/61)ANDPEEK(UN0flS363)=32nCNPRINTe 

UNO,S; SUNO^MH-l :PRIKmMO, A(C1 ) ; SGOTOBOaSEBO 

170 lHJMH15360:iFUNO<896ANDPEEK(t>f61)=32AN)PEEK(IH65)=32AM]PEEK 

(U+i6)=32THENFRINTeUN0,S; :UNO=(JNOf6i:PRINTaJN0, A(C1) ! :GOTOBOELSE 

80 

180 IFl»n/61OINT(tM)/61)ANDPEEK(UN0flS359)=3ZT)Cf>RINmN),S;:U 

NCNN)-1:PRINT0JNO,A(C1);!GOTO8OELSE8O 

190 ONC1GOT0200,230,260,290 

200 IFlMO<61THENB0aSEI=UNO-63 

210 IFPEEK(I+lS360)O32TIEN220ELSEPRINT8I,K;:FDRl^lT05itEXT;PfaN 

T8I," ■'J{I=I-6i:in<=0TICNB0ELSE210 

220 IFI=THO^2aRI=TM)tlQRI=TMOTHEN550ELSEPRINT8I,CNR«(191);:GOTOB 



230 IF(UND+3)/61=INT((UNO+3)/61)T)eeOELSa=UN[K3 

210 IFPEEK(I+15360)03ZTHEN250ELSEPRIMT8I,K;:PRINTH," "JJI=I+3: 

IFI=I)(T(UNO/61)i6l463THEN80aSE210 

250 F(I=TV«)aR(I-l=THO)aR(I-2=TW)'nCNS50ELSEFRINT8I,(}M(191); 

SGOTOBO 

260 IFljm>e95TIENB0ELSEI=UNO^ 

270 IFPEEX(I+lS360)O32T1EN280ELSEPmTei,K;:F0R&=lT05:tEXTiPRIN 

TBI," ";:i=I+6i:iFI>=96BTIO«eaSE270 

m IFI=THO0RI=T)IOfl0RI=TM(H2THEN550ELSEPRINT8I,(»$(191);:GOT0e 



290 IFIINQ/61=INT(UNO/61)THENBOELSEI4N)-1 

300 IFPEEK(I+15360)O32THEN310aSEPRINT8I,KnFII»=lT03:tEXTSPRIN 

TBI," ";;i=I-3:iFI<=B(T(ll«/61)i61THENBOELSE300 

310 F(I=TWO*2)OR(I=TH(Kl)OR(I=7>IO)TICNS50ELSEPRIKTei,(»»(m)J 

!(»TOe0 

320 X=-X:iFPEEK(B2)=1'nCI330aS£IFPE£K(B2)=8THEN350ELSEIFPEEX(B2 

)=16T)EN370ELSEIFPEEK(B6)=8T}EN120aSE80 

330 FC2=5THEN(2=8aSEl2^2-l 

310 PRINTeTH0,A(C2);:GOT080 

350 FC2=«THENC2=SELSEC2^+1 

360 PRINmHO,A(C2);:(»TO80 

370 ONC2-K»TO38l,390,100,11B 

380 T»TMOflS360:iFn«I>63MI)PEEK(T-61)=32ANDPEEX(T-63)=32M«>EEK( 

T-62)=32THENPRINTfm«)»S$ :TM0=TW)-6i:PRINTeTW, A(C2) ; SGOTDBOELSES 

continued on next page 
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continued from previous page 

390 IFPEEK(15360+™0+3)=32AND(TH(H3)/MOINT((THO+3)/61)MNPRIN 
TeTHO,S; :TH0=T«0+1 :PRINTeTH0,A(C2) } :GOTO80aSE8l) 

m T=TV«+153«fl{IFTHCK896AM)PEEK(T+61)=32flM)PEEK(T+65)=32W<)PEEK 
(T+66)=3ZTHENPRINTeTH0,SJ tTH0=Tl«+6i:PKWTeTH0,A(C2) ', :GOT080ELSE 
80 

110 IFPEEK(TH0+15359)=3ZANDTH0/61OINT(™0/61)THOfK[MreTH0,S;!T 
H0=TH0-1 :PRINreTM0,A(C2) } tGOTOSOELSESO 
120 ONC2-1GOT(M30,160,190,52fl 
130 IFTHO<61THEN80ELSEI=THO-63 

m iFPEEK(i+i5360)032THENi5oasEPRiNTei,K; :foro=ito5:next:pkin 

Tei," "}JI=I-6i:iFI<=OTHEN80aSE110 

150 in==lJNOORI=UNOtlORI4JN0+2THEN560aSEPRINTei,CHR$(191);:GOT08 



160 IF(TH0+3)/6K>INT((TH0+3)/61)THENI=TH0+3ELSE8fl 

170 IFPEEK(I+15360)O32THEN18flELSEPRINTei,K! :FORO=1T03:NEXT:PRIN 

TBI," '•; :i=I+3:iFI>=INT(M)/61)x61+63TfCN80ELSE17fl 

180 IF<I=UNO)OR(I-l=UNO)QR(I-2=UNO)THEN560ELSEPra}(Tei,CHR*(191); 

:G0T08D 

190 IFTVO>895TI€N80ELSEI=THO+65 

500 IFPEEK(I+153«0)032THEN510ELSEPRINT8I,K; !F(]R0=1T05!ICXT:PKIN 

TBI," "; 5I=I+6i:iFI>=960THEN80ELSE500 

510 IFI4M)0(a=lJNO+10RI=UNO+2THEN560aSEPRINTei,(>«$(191)j:GOT(]8 



520 IFTHO/61=INT(THO/61)THEN80ELSEI=THO-1 

530 FPEEK(I+15360)O32THEN51flaSEPRINTei,K;:F0R0=lT03:NEXT;PKIN 

TH," ";:i=I-3:iFI<=INT(M)/61)xA1TfCN80aSE530 

510 IF(I=W«t2)0R<I=UNO+l)OR(I=UNO)T}CN560aSEPRINTei,CHW(191); 

tGOTOSO 



Lines 550-560: Hit routines for both tanks. 

550 FORI=lTO10:PRINTeTHO,"Hn"?:FORIK=lTO5fltNEXTtPRINT8TWO," " 
;:FORIK=lT050:NEXT:NEXT:Pl=Pl+15IFPl=10THEN580aSEGOaB570JPRINT 

BUNOtS; :PRiNTeTUO,s; :goto7D 

560 FORI=lTO10:PRINTBUNO,"Hn";:FORIK=lTO50:NEXT:PRINTBl)NO," " 
}:FORIK=lT050!NEXT:NEXT;P2=P2+15IFP2=10THEN590aSEGOSUK70:PRIMT 
8UN0,S; ;PKINT8TWO,S5 :GOTO70 

570 PRINTBO ,Lf FT»(AB,61) I :PRrNTB61,LEFT»(AB,61) 5 :PRINTB2fl,S(Pl) ! 
tPRItfr610,S(P2) ; ;PRINTBl*IO, A(C1) J '.PRINTBTH0,A(C2) ', :RETURN 

Lines 580-600! Winning routinei 



580 0$=0$:GOT0600 

590 Ot=T» 

600 Q$=Ot+" IS THE WINNER! !":FORI=lT03flO!PRINT(?iM)(950),Q$;:NEXT 

:fori=itoioo:next!Run 

1000 PRINTei28,""; 

1005 READLl ,L2!IFLl=990RL2=99Tf£»«EST0RE:RETURMELSEPRINTLEFT»(AW 

,Ll);LEFT$(AB,L2);:GOT01fl05 

1100 DATA67,57,7,3,15,3,15,3a5,3,'',3,3,15,3,3,7,3,3,3,3,3,9 
1110 DATA3 3,3,9,3,3,3,3,3,7,9,3,3,3,21,3,3,3,9,7,3,3,3,3,3,3,3, 
lDfOf3t3t3t3f3t3f7 

1120 DATA9,3,3,3,21,3,3,3,9,7,3,3,3,3,3,9,3,3,3,9,3,3,3,3,3,7,3, 

3,15,3,3,7 



1130 DATA3,9, 3,27,3,9,3,7,57,68,0,0 
11010 DATA99 



® 




HIDING YOUR CODE 

Part 1 



This month we are going to take 
a look at hiding your BASIC coding 
for the TRS-80™. First, let me say 
that the techniques discussed here 
will prevent most people from 
seeing your code. However, no 
method is foolproof: As the level 
of protection increases, the number 
of people who are able to decode 
your program also decreases. 

Also, let me say now that 
programs submitted to SoftSide 
MAY NOT employ any of the 
techniques discussed here as we 
may need to see the code. 
Let's start with the simplest way to 
protect your listing. Turn on your 
computer and enter this line: 

10 CLS:PRINT"HI THERE" 
Now run the program and check 
for eiTors. This is important, 
because the program is very hard 
to debug after you make it list 
proof. Once the program is 
verified, EDIT the line. Go to the 
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end of the line and add a (') or 
REM. The line should now look 
like this: 

10 CLS:PRINT"HI THERE" ' 
Now, press and hold down the 
< SHIFT > key. While holding it 
down, backspace the cursor 
through the line so that it rests in 
the position of the digit "1" in 10. 
After doing this, release the 

< SHIFT > key and use the space bar 
to erase the line. At the end of the 
line, add one extra space so the 
cursor goes one position past the '. 

After spacing through the line, 
enter a linefeed <DOWN 
ARROW) . Now, press and hold 
down the <SHIFT> key again. Now, 
enter 14 more linefeeds, then press 

< ENTER > . 

Try listing the line. If everything 
was done correctly, a "ready", not 
the line, will appear. This 
technique works fine on both a 
Level II and disk system. Next 
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month we'll talk about hiding your 
programs with only a few bytes of 
RAM. Until then.... .9h^.. 




from Hayden 

Stimulating Simulations 

Second Edition by C W Engel 
ATARI Version $5.50 plus $i 

T5€:Ha^lD€ 
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AUTOMATED 
SIMULATIONS 



Fantasy At 
Your Fingertips 



TEMPLE OF APSHAI 

Limber up your sword arm and don your breastplate for a journey to an underground 
dungeon. Loaded with fierce monsters and exotic treasures, the Temple of Apshai 
awaits the hardy adventurer. You must first equip your character by bargaining with a 
penny-pinching innkeeper, then you head for the subterranean ruins of an insect- 
worshipping culture. Watch out for the Ant-men! 

S 80 Cassette: 16K, Level li j24 95 

S80 Disk: 32K TRSDOS ' I29 95 

APPLE Disk: 48K with APPLESOFT in ROM $29 95 

PET Cassette: 32K (old or new ROMs) [,',',[ $24^95 

DATESTONES OF RYN 

Rex the Reaver and his band of cutthroats have absconded with the precious 
datestones from the ducal calender and your job is to recover them. Not only must you 
explore the cavernous lair of the robber band, but you must also face an assortment of 
monster all hungering for your blood. Oh yes, and you only have a single day to 
recover the stones. Better start sharpening your sword... 

S-80 Cassette: 16K. Level II $14 95 

S-80 Disk: 32K, TRSDOS $19 95 

APPLE Cassette: 32K unlh APPLESOFT in ROM or 48 K with APPLESOFT on cassette $14 95 

APPLE Disk: 4«K with APPLESOFT in ROM $19 95 

PET Cassette: 16K (old or new ROMs) $14 95 

MORLOC'S TOWER 

You are Brian Hammerhand and you have to thwart the evil necromancer Morloc, 
who has vowed to destroy your hometown of Hagedorn at the rise of the new 
moon. ..tonight! You must beard the wizard in his own lair, a tower that contains 
Morloc, the fair maid Imelda, and the wherewithal to destroy the evil mage. But move 
quickly, for nightfall is approaching... 

S-80 Cassette: 16K. Level II $14 95 

S-80 Disk: 32K $19 95 

APPLE Cassette: 32K with APPLESOFT in ROM or 48K with APPLESOFT on cassette $14 95 

APPLE Disk: 48K with APPLESOFT in ROM $19 95 

PET Cassette 20K (old or new ROMs) $14.95 

HELLFIRE WARRIOR 

Attention all veteran warriors! Four more levels of dungeon have been discovered 
beneath the Temple of Apshai region. These four levels are populated by Undead, 
Demons, and an assortment of thoroughly nasty types. There is also a good deal of 
treasure down there, but not many have survived to report about it. Rumor has it that 
in the very deepest recesses of the lowest vault lies an enchanted warrior maiden, 
guarded by the very fires of Hell! Are there none so brave and (fool) hardy as to rescue 
her? 

S-80 Cassette: 16K, Level II $24 95 

S-80 Disk: 32K $29 95 

APPLE Disk: 48K with APPLESOFT in ROM $29.95 

RESCUE AT RIGEL 

As Sudden Smith, you are entrusted with the rescue of human hostages seized by 
the High Tollah and being held by Tollah scientists. They are being held on a secret 
base circling the planet Rigel where dastardly experiments are being performed upon 
them. And the lovely Delilah Rookh, a close friend of yours, numbers among the 
captives. Strap on your powerpack and your powergun, bring them back or don't come 
back at all! 

S 80 Cassette: 16K, Level II $19.95 

S80 Disk: 32K $24.95 

APPLE Cassette: 32K with APPLESOFT in ROM or 48K with APPLESOFT on cassette $19.95 

APPLE Disk: 48K with APPLESOFT in ROM $24.95 

PET Cassette: 20K (old or new ROMs) $19.95 

STARFLEET ORION 

Do battle in outer space without leaving your own home. Starfleet Orion provides 
you with the framework of space combat and a dozen scenarios to choose from. 
Exhaust those scenarios and you can begin to create your own. Your own imagination 
is your only limit. 

S 80 Cassette: 16K, Level II $19.95 

S 80 Disk. 32K $24.95 

APPLE Cassette: 16K or 32K with integer BASIC in ROM (2 program versions supplied) $19.95 

APPLE Disk: 32K with integer BASIC in ROM $24.95 

PET Cassette: 8K (old or new ROMs) $19.95 

INVASION ORION 

Your computer would like to battle you in outer space. You name the time, place, 
and scenario, the computer will take you on, no questions asked. You command a 
starfleet and must pit all of your tactical skills to stay on top of your opponent. May the 
best entity win! 

S 80 Cassette: 16K, Uvel II $19.95 

S 80 Disk: 32K $24.95 

APPLE Cassette. 32K with APPLESOFT in ROM $19.95 

APPLE Disk: 48K with APPLESOFT in ROM $24.95 

PET Cassette: 16K (old or new ROMs) $19.95 
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Do you still wonder if the 
"limited" disaster at Three 
Mile Island could have been 
averted? Here's your chance 
to decide for yourself, by re- 
enacting the affair. MUSE 
offers you THREE MILE 
ISLAND, a simulation of a 
pressurized nuclear reactor. 

Valves, pumps, turbines, 

filters, and control rods are 

individually activated by 

keyboard command. 

Comprehensive 

documentation provides 

detailed descriptions of the 

operating mechanisms and 

component interactions. 

Are you capable enough to 

prevent a repetition of the 

events in Pennsylvania? Or 

even a bonafide meltdow^n? 

There's only one w^ay to find 

out 

48K Apple, 

Integer BASIC $39.95 

TS€:IHpS|0€ 

6 South St .Milford. NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1 -800-258-1 780 
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Students and professors, small business 
owners and tycoons, all rave about Visicalc. 
Dispense with pencil, paper and calculator — 
instead, you can have an "electronic sheet" to do 
your calculations, projections, and planning. You 
can calculate sales projections, income taxes, 
personal budget, cost estimates, engineering 
changes — even balance your checkbook. 
Visicalc is partitioned into a matrix of rows and 
columns. At each position in this matrix you can 
define a title, formula, or number. By writing on 
your "electronic sheet," you can set up 
individualized charts, tables, and records. For 
example, you can design your own sales 
forecasting format to assist in making the 
important "What if?" business decisions such as: 
"What would happen if sales increased by 10%?" 
"What if delivery time were decreased by two 
weeks?" "What would be the result if I produced 
500 widgets this month instead of 600? What if I 
produced 700?" With Visicalc to assist you in 
performing these calculations, you can save 
countless hours. 

Visicalc requires 32K Apple II with one disk 

drive $149.95 

Now for Atari! Visicalc 32K Disk system $199.95 
S-80 32K Disk system (Radio Shack) $95.00 
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continued from page 4 

argument runs something like this: 
in order to communicate on a mass 
scale, language must be 
standardized and compressed. By 
compressed I mean that secondary 
and tertiary meanings of a single 
word are stripped away until a 
single word has a single meaning, 
context notwithstanding. The 
science of cybernetics is just that, 
the science of language 
compression. Television uses 
language that is current (except in 
PBS programming) and limited in 
meaning, that is to say that 
ambiguity is something to be 
eliminated rather than encouraged. 

Newspapers do the same thing, 
aim for language accessible to the 
lowest common denominator. The 
alleged result is that the vocabulary 
of the vox populi shrinks and the 
expressiveness of the language is 
damaged. Nevertheless, the 
language is still English, rife with 
double entendres and ambiguities, 
puns and wordplay. 

Until now, all of our 
communications media have 
aspired to use language that is 
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somewhat diverse, if not literary. 
But the language of computer 
programming is much more limited 
than that of other media, in that 
the computer can only assign a 
single meaning to any one word 
— the language must be strictly 
rational. Held in perspective that is 
not necessarily bad, for we could 
all bear with a little more training 
in rational thought. However, the 
danger lies in limiting our 
communicative skills to naught but 
rationality, for no human is 
completely rational, nor should 
they aspire to be so. 

My experience has been that the 
more one works in a given field, 
the more the jargon of that field 
creeps into one's language. After a 
few months here at SoftSide, I 
find that my analogies tend to 
computer and programming 
metaphors. In prior job 
incarnations, such as journaUst 
and musician, my analogies fell 
into the metaphors particular to 
those fields. The more one is 
exposed to a certain type of 
language, the more one tends to 
use that language. 

My fear, then, is that as 



computer programming becomes 
more and more common (See 
Mark's predictions for the spread 
of technology, elsewhere in this 
issue), so will the language of 
programming. And that language 
is highly compressed. 

This is not a diatribe against 
computers, mind you. I own one, I 
find it an amazingly useful tool 
and quite an entertainment in the 
bargain. 1 like it, I really do. But 
along with Lewis Mumford, 
Raymond Williams, Walter Ong, 
and a host of other scholars in the 
field of communications and 
technology, I believe that language 
is the foundation of civilization, 
the bottom line. Without language, 
there is no thought. As such, I 
wish to see our linguistic skills 
grow, for the complexity and 
depth of our society grow with our 
linguistic abilities. The computer 
can add a new dimension to our 
language. It can also replace or 
preempt part of our language. It is 
up to each one of use to enrich or 
deplete the language. The ball is in 
your court, it was never |J^ 

anywhere else. >a^ 
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Stumped by statistics? Here's the 

program for you I 

Written by a statistician but designed 

for use in the real world. Helps you 

create files; examine and edit data; 

and understand descriptive statistics. 

Sophisticated enough for the 

working statistician. This powerful 

Interactive statistical package 

features complete error diagnostic, 

missing value specification, and 

sophisticated graphics. 



S-80 Disk 32K and 48K versions on 
one disk $29.95 
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LET YOUR 
TRS-80™ 

TEACH YOU 
ASSEMBLY 
LANGUAGE 



A:$s>er!rbly 



FROM 

REMsoFT, Inc 



REMsoft proudly announces a 
more efficient way, using your own 
TRS-80TM, to learn the fundamentals 
of assembly language programming 
— at YOUR pace and at YOUR con- 
ven i en ce. 

Our unique package, "IN- 
TRODUCTION TO TRS-80 
ASSEMBLY PROGRAMMING," will 
provide you with the following: 

• Ten 45 minute lessons on audio 
cassette 

• A driver program to make your 
TRS-80TM video monitor serve as a 
blackboard for the instructor. 

• A textbook on TRS-BOtm 
Assembly Language Programming 

• Step-by-step dissection of com- 
plete and useful routines to test 
memory and to gain direct control 
over the keyboard, video monitor 
and printer. 

• How to access and use powerful 
routines In your Level II ROM. 

Level II BASIC $69.95 
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OKHOMS 
MONITOR 

by W. J. Kutlever 

THE INVESTOR'S KEY TO 
OPTIONS MARKETING!!! 

Make informed trading 
decisions in minutes with 
this easy to use package. 
WHO: Investors, Option 
Writers or Purchasers use 
this program. 

WHAT: Analyzes option 
prices and responds to cur- 
rent market prices as soon 
as you receive them. 
WHY: Assesses the value 
of a given option. Monitors 
the value of your in- 
vestments. Helps you 
decide when to purchase 
or to close out your op- 
tions. 
HOW: Use S-80 Disk. 

Next to your broker this 
program is your best op- 
tion in creative investing. 
Analyze option prices 
before risking any money. 
Convenient features are 
data entry and flexibility in 
handling a wide variety of 
situations. 

Available for Level II, 16K 
S-80 Microcomputers. 



$29.95 
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ATARI "SOFTWARE 

by Tim Hays 

Construct data base 

by entering geometric 

coordinates, then 

view from different 

angles. Four 

programs. Low 

resolution requires 

8K, high resolution 

16K, demonstration 

program, 24K. Atari 

400 or 800. 

$29.95 



A 



TO ORDER TOLL FREE 

1-800-258-1790 

(In NH call 673-5144) 

breeze 
compuliiiQ 



HOWS YOUR LOVE LIFE ? 

A little dull around the edges? Routine? ] 
needs is a little Interlude. Interlude is the 
ever conceived, it combines a computer i 
programming concept, and a one-of-a-kin 
exciting, adventurous, delicious fun! 

With over 100 Interludes, you can satisi 
Each Interlude is fully described in the ma 
are detailed with regard to settings, props. 
But we've saved a few super Interludes for 
interview indicates you're ready! At that time y' 
of several Interludes held secret within the corti 
secret Interlude #99, your love life may never 
can give you experiences youll never forget. 
16K Apple cassette/I $16.95 
32K Apple disk/I $19.95 
16K S-80 cassette/Level II $16.95 
32K S-80 disk $19.95 



by Syntonic Software Corporation 




-redictable? Boring? Maybe all it 
p^ost stimulating computer game 
iterview, an innovative 
i manual to turn your love life into 

kail levels of interest and desire. 
ual, and the more elaborate ones 
Sd mood enhancing techniques. 
^ very special time when yori 
Du will be introduced to oni 
jputer. (When you learn I 
fie the same again!) Interlude 
3re you ready for it? I 
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NORTH ATLANTIC CONVOY RAIDERS 

This game is a simulation of the Bismarck convoy raid of 1941. The 
computer controls the British convoys and British battleships. Will the 
Bismarck sink the Hood, only to be sure in turn? Or, will the Bismarck cripple 
or sink the British Home Fleet. Your decisions will determine the fate of the 
Bismarck. 

This SOLITAIRE game includes software and Instructions for the following 
computers: TRS-80* Level II, 16K Memory Apple IT, Applesoft, BASIC, 16K 
Memory beyond BASIC Pet*, 16K Memory $15.00 

NUKEWAR 

NUKEWAR is a simulation of a nuclear confrontation between two 
hypothetical countries. You must choose the methods to defend your country 
while your computer will choose its own strategy to try to destroy you utterly! 
NUKEWAR is fast-paced and easy to learn, and can be enjoyed equally by 
players of all ages and levels of experience. 

This SOLITAIRE game includes software and instructions for the following 
computers: TRS-80* Level II, 16K Memory. Apple II*, Applesoft* BASIC, 16K 
Memory beyond BASIC Pet*, 16K Memory $15.00 

PLANET MINERS 

PLANET MINERS gives one to four players the chance to stake valuable 
mining claims throughout the solar system in the year 2050. Each player must 
decide which ships to send to which planets and when to resort to sabotage 
and claim-jumping. If there are less than four players, the computer takes the 
other parts. 

Includes software and instructions for the following computers TRS-80* 
Level II, 16K Memory Apple 11*, Applesoft* BASIC, 16K Memory beyond 
BASIC Pet 2001*, 16K Memory $15.00 

B-1 NUCLEAR BOMBER 

You are the pilot of a B-1 bomber on a mission over the Soviet Union who 
must fly through the Russian defense to the target city, bomb it, and return 
home. Your computer controls the Soviet air defense bases. Your only chance 
to get through is the superior technology of your ECM (electronics counter 
measures) and self-defense missiles. When all else fails, you can try violent 
evasive maneuvers. 

The SOLITAIRE game includes software and instructions for the following 
computers: TRS-80* Level II, 16K Memory Apple II*, Applesoft* BASIC, 16K 
Memory beyond BASIC Pet*, 16K Memory $15.00 

MIDWAY CAMPAIGN 

MIDWAY CAMPAIGN is a computer simulation of the battle for Midway 
Island. Your microcomputer controls a huge force of Japanese ships whose 
objective is to invade and capture Midway Island. If the Japanese can win air 
superiority over Midway, the success of the invasion is virtually guaranteed. 
You command the badly outnumbered and outranged U.S. Navy forces. Your 
only advantage is surprise. 

This SOLITAIRE game includes software and instructions for the following 
computers: TRS-80* Level II, 16K Memory, Apple M*, Applesoft* BASIC, 16K 
Memory beyond BASIC Pet*, 16K Memory $15.00 
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recordings 



AMP RECORDING 

AND 

DUPLICATING SERVICE 

609 667-1667 

307 West Main Street 
Maple Shade, NJ 08052 



For Digital 
needs: 

* AMP "Data-sette" blank 
cassettes 

* Digital cassette 
duplication 

* Storage Boxes 

* Labels - Custom 
printing & blank 



For AUDIO 

needs: 

* On-location music 
recording 

* Record Album 
production 

* Stereo and Spoken 
Word cassette 

duplication 

* Blank cassette and 
supplies 



All cassette work at 
AMP R. & D. is custom 
work to fit your needs. 

Call or write to "Jerry" 
for more information. 
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Odyssey. The 

COMPLEAT 
ADVENTURE 



The High One is dead. The source of 
his power, a jewel encrusted orb, lies 
hidden somewhere in the archipelago of 
the Sargalo Sea. The forces of evil roam 
about, preying on hapless travellers, and 
ambushing merchant caravans. Chaos 
reigns supreme. 




From 

SYeSERCISiTIC 

SOFTWARE 



You and your party of adventurers 
might be able to reinstate order in the 
realm, rendering the land fit for human 
habitation. But you cannot do so unless 
you find the orb. To do that, you will 
need to round up an army of mercenary 
warriors, acquire wealth and supplies, 
and learn to sail and wield magic. You 
must be cunning and sly, and willing to 
undergo an arduous quest but the 
human race has no other hope for 
salvation and supremacy. 

Odyssey: The Compleat Adventure is 
the newest adventure game from 
Synergistic Software, the folks that 
brought you the Wilderness Campaign 
and the Dungeon Campaign. Now they 
offer an adventure that combines all of 
the elements of those two programs 
with many new features. Here's your 
chance to establish yourself as a leader 
of men and a shaper of destiny. 
Apple II, Integer, 48K Disk $29.95 
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The Magic of Line Zero 



The Art of the One- Liner 




by Phillip Case 

THE MAGIC OF LINE ZERO 

This month we will discuss one 
of the seldom used tricks on the 
S-80. The techniques discussed 
here, while functional in their own 
right, do not necessarily represent 
good programming procedures. 
For those of you contemplating 
writing programs for publication in 
SoftSide, DO NOT use these 
techniques, as they will make your 
programs harder to understand by 
the hobbyist. 

Most people know that you can 
,have a line zero (0) in your 
program. Normally, this line 
number is reserved for a REMark 
line. In fact, most renumbering 
utilities do not function when line 
zero is included in a program. 

An interesting thing about the 
use of line zero is the fact that a 
GOTO command will default to 
line zero when no other line is 
specified. An example follows: 
THIS IS AN EXAMPLE 
10 GOTO 

It is interesting to note that if 
line zero is not present the 
program will not default to the 
first available line. It requires Hne 
zero present, otherwise a UL 
ERROR resuhs. 
THE ART OF THE ONE-LINER 

When we started our one-liners 
feature back in September of last 
year, we had no idea of the quality 
of programs we would receive. 
Since September, we've published 
about 100 one-liners covering 
everything from space war games 
to adventures. 



Now that the one-liner has 
become an art form, I guess it's 
appropriate to discuss some of the 
finer points of writing one-liners. 

Because you are limited to one 
line of program text, it is 
important to conserve space 
whenever possible. The one line 
adventure in the previous issue was 
rewritten four times before it could 
be merged into one program line. 
One thing to remember is that 
there are always many ways to 
accomplish the same thing in a 
program. In a one-liner, you want 
the shortest. 

One of the most heavily used 
techniques for saving room is the 
substitution of a comma (,) for the 
THEN command. Each comma 
saves three characters of space. 
Here's another trick to consider. 
In many one-liners, the writer 
intends to create an endless loop. 
This is usually done like this: 
F0RA=1T099999. 

Here's a better way of 
accomplishing the task: 
FORA = 0TOlSTEP0. 

This loop will run forever 
without increasing the variable A. 
Also, when entering a one-liner, 
you can enter several additional 
characters by EDITing the 
program line. 

One-liners have become a true 
art. The one-liners of today are 
better than many of the early 
published programs. With the 
advancement of computers and 
electronics, it makes you wonder 
what the one-liners of tomorrow 
will accomplish . . . ^% 



S-80 One-Liner. 



While not strictly adhering to 
the one-liner rules (continuously 
changing graphic display, as 
interesting as possible), MONITOR 
is of interest in its own right. With 



MONITOR, you can examine any 
portion of S-80 RAM or ROM. 

Roy Cohen 
Englewood, New Jersey 



] rNPUT"DEC. STARTING A00R":a;CLS:F0RX=1T02STEPI).*IFPEEK(A)<.32F'RI 
NTA: TAP'S) "COTTROL CODE ♦ ";PEEK(A):A=A+l;^EXTELS£F•RINTA,F■£ 
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Three from Potkin 



Wargamer's delight 





1). Kriegspiel II 

A much improved two-player version 
of the original. Kriegspiel II is a war- 
gamer's delight. Choose the number of 
mountains (up to 200) and pick a scenario 
from the 9,999 possible, and then watch 
the computer set up the pieces, towns, 
mountains and a river. To win, you must 
enter the capital city of your opponent or 
reduce his fighting strength to below 
half of your own 

S-80 Level II, 16K cassette $14.95 



2). Up Periscope 

The author of the popular Kriegspiel II 
has done it again. This time the action 
takes place at sea with one player con- 
trolling the submarines while the other 
attempts to sail around RADSHA Island, 
with at least three of his fleet surviving 
the attempt. This realistic wargame in- 
cludes sonar, depth charges, and 
torpedos. 

S-80 Level II, 16K cassette $14.95 





3). Warpath 



The Indians are on the warpath! The 
Chief, along with 24 braves, is out to 
take the garrison at the fort, or at least 
to stop reinforcements from entering the 
stockade. The General, with his 14 
troopers, is trying to relieve the garrison 
before the flag is captured. The player 
determines the scenario through place- 
ment of boulders that provide both 
shelter and obstacles. Favorite 

scenarios may be replayed. 

S-80 Level II, 16K cassette $14.95 



CALL TOLL-FREE 

1-800-258-1790 ffl^ 

In NH call 673-5144 




ffl 



Hayden Book 
Company. Inc. 




Blackjack 
Master 



Are you a serious student of 
blackjack? If you are, Hayden has 
just published a program and 
booklet package for you. It's 
Blackjack Master, a simulator/ 
tutor game for your S-80. The 
purpose of the package is to make 
you a winner. Unlike other 
Blackjack programs that 

emphasize graphics and fun, 
"Blackjack Master" is a serious 
game. Performing complex 
simulations and evaluations of 
playing and betting strategies, 
"Blackjack Master" will tutor you 
in this premier gambling game. 
Documentation included. Monte 
Carlo may never be the same. 

S-80 Level II Cassette $19.95 

S-80 Disk $24.95 



^■^■^^—^ 1^^^^^ 
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6 South St., Milford, N.H. 03055 ^"^ 

ORDER TOLL FREE: 1-800-258.1790 
(in NH call 673-5144) 
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Attention 

BARGAIN HUNTERS 

Receive Hundreds of Classified Ads 
like Tiiese Every Month 



HARD DISK DRIVE Diablo Mod 31 
1.2 MByte std. density. Includes 
power supp. and cable, rack mount 
slides, amd manual. Excellent 

condition. $450. ^ '—^601 

■I_R^-<a_C- — ""Tic fPS Serial \n3 

and P»'*"^' , 'ter sires-Single 

';'ndatd P»- ^^P'Cegral da« 
mechanisnT^^^^_^l_^^ga!_,o^^ 

*^**^HEATHK,T H-11/DEC LSI-11 
systeir i2K Byte storage, reader 1 
punr video terminal, complete 
! software. Cost $4500 assembled, 
$3500 kit. Like new. Sell (or $2250. 
305-962-6677. 2058 Griffin Rd., Ft 
Lauderdale, FL 33312. 



'nterdata (Perkin-Elmer) 
v^'th 32KB core, '- ■ 

supply. 



FOR SAIE: 

'/16 Mini wirn ^JKa , 

panel, 50A PWR .f , '^' ''°"' 
HS t^n» il ^ '"PP'V Includes 
fTTV? ^'^^^ *"*«^faces for LP 2 
" ru and RS-233 rp,.ii j . 

programmable) fnduHp" "'"^''' 
and much SW fHi. r ""^""^'^ 
etc.,). $fl0O^!£,Tp^"3 

COMPUTER AUTOMATION ALPHAJ 

16- 16 k-word core memory, RTC 
PF-R Modified Mod. ASR-33 TTY 
Manuals, utilities, assemblers arv 
many option boards - 16 bit I/O 
Driver 16 bit I/O, Asynch modem 
contr 64 bit output, 10 bit A/D - 
D/A Fairly complete documen- 
tation. Up and running in Fortran. 
Not much more than TTY at $1000 
Herb Sauer, 303-494-8724 



FOR SALE: Heath H9 video ter- 
minal, excellent condition, $175 or 
best offer You ship [214] 962-4484 

niemory board without !» i 

sell PFT,''""^«syste2f"Pf°tS;- 
'^Ss^r^'tewS/,;^ -ch 



COMPUTER SHOPPER, the new buy, sell, and trade 
publication, is ready to help you with the latest infor- 
mation on personal, small business and large-systen-. 
computers, accessories and software. 

Each ad-packed issue is full of bargains you are 
looking for. Included are ads from individuals 
throughout the United States who are selling their 
good, pre-owned equipment just so they can trade-up 
to new equipment coming on the market 

But, COMPUTER SHOPPER'S bargains won't be 
yours unless you subscribe. This useful, money- 
saving publication can become your way to com- 
municate with other buyers, sellers, and traders all over the nation 

Whether you are a hobbyist or a part-time user, COMPUTER 
SHOPPER will put you in touch with the nationwide computer 
marketplace In time for you to take advantage of bargain oppor- 
tunities. 

Have something to sell? A COMPUTER SHOPPER subscriber pro- 
bably wants to buy it. 

Looking for a part, component or even a complete system? A 
COMPUTER SHOPPER subscriber probably wants to sell it. 

COMPUTER SHOPPER is THE marketplace for anything in com- 
puters and is read by thousands of people who are ready to buy 

COMPUTER SHOPPER offers a unique formal in which classified 
ads are categorized for fast location of specific items. Combining 
this with low individual ad rates — 10, cents » word — 




makes it the ideal place for buyers and sellers to com- 
municate. And, Its mix of individual, dealer, and 
manufacturer ads enable subscribers to find what 
they want at the best price possible. 

COMPUTER SHOPPER will work for you in other 
ways, too. If you are just thinking about getting into 
computers, it can help you learn product availability 
and prices before you make a decision. And, through 
the timely ads, COMPUTER SHOPPER will keep you 
abreast of changes in the market which could create 
bargain opportunities for you 

BUT COMPUTER SHOPPER cannot work for you unless you 
subscribe. 

Want to look us over first? We'll give you your first issue FREE 
and then bill you for the next 12. If you are not convinced COM- 
PUTER SHOPPER suits your needs, just write "cancel" on the in- 
voice and return it. 

And, to let COMPUTER SHOPPER start working for you right now, 
with a paid subscription we'll also give you a FREE classified ad to 
sell your pre-owned equipment or to find equipment you want. 

If you don't need to use the free classified ad now, use it anytime 
during your subscription. 

Subscription; $lO/year, 12 issues plus your first free one. Bank 
cards accepted. Money back guarantee. 



The Nationwide Marketplace lor Computer Equipment 

CamPUTSR SHOfSPSR 

PO. Box F26 • Titusville. Florida 32780 
Telephone 305-269-321 1 

MasterCharge or VISA orders only, call TOLL FREB aoO-327-9920. 



78 



SoflSidc FEBRUARY. 1981 



^^dventure 










(^ 



^■^ 




Uo«<*"Jr 



'WSH-i/- 



i^r 



^Adventure 




^.eott Jldams 



\dventur€ 



Adventure by Scott Adams is like no other program you have 
ever seen! Inspired by the large Adventure game found on 
big computers in the last few years, it will run on your 16K 
Home Computer! This is one game you will NOT master in 
an hour and then lose interest in! Adventure is a machine 
language program using all 16K of your computer. 



O.t 



l.t 



2.t 



3. 



10. 



"SPECIAL SAMPLER" - Never tried Adventure? This 
special inexpensive sampler complete with 3 Treasures 
is a cut-down version of our large Adventureland. 
Guaranteed to supply hours of enjoyment: Try an Adven- 
ture today! 

ADVENTURELAND - You wander through an enchanted 
world trying to recover the 13 lost treasures. You'll en- 
counter wild animals, magical beings, and many other 
perils and puzzles. Can you rescue the Blue Ox? 
PIRATE'S ADVENTURE - "Yo ho ho and a bottle of 
rum..." You'll meet up with the pirate and his daffy bird 
along with many strange sights as you attempt to go 
from your London flat to Treasure Island. Can you 
recover Long John Silver's lost treasures? 
MISSION IMPOSSIBLE ADVENTURE - Good morning, 
your mission is to ... and so it starts. Will you be able to 
complete your mission in time? Or is the world's first 
automated nuclear reactor doomed? This one's well 
named. It's hard, there is no magic, but plenty of 
suspense. Good luck. . . . 

VOODOO CASTLE - Count Cristo has had a fiendish 
curse put on him by his enemies. There he lies, with you 
his only hope. Will you be able to rescue him or is he 
forever doomed? Beware the Voodoo Man. . . . 
THE COUNT ■ You wake up in a large brass bed in a cas- 
tle somewhere in Transylvania. Who are you, what are 
you doing here, and WHY did the postman deliver a bot- 
tle of blood? You'll love this Adventure, in fact, you 
might say it's Love at First Byte. . . . 
STRANGE ODYSSEY - Marooned at the edge of the 
galaxy, you've stumbled on the ruins of an ancient alien 
civilization complete with fabulous treasures and un- 
earthly technologies. Can you collect the treasures and 
return or will you end up marooned forever? . . . 
MYSTERY FUN HOUSE - Can you find your way com- 
pletely through the strangest Fun House in existence, or 
will you always be kicked out when the park closes? . . . 
PYRAMID OF DOOM - An Egyptian Treasure Hunt leads 
you into the dark recesses of a recently uncovered 
Pyramid. Will you recover all the treasures or more likely 
will you join its denizens for that long eternal sleep? . . . 
GHOST TOWN - Explore a deserted western mining 
town in search of 13 treasures. From rattlesnakes to 
runaway horses, this Adventure's got them all! Just 
remember, Pardner, they don't call them Ghost Towns 
for nothin'. (Also includes new bonus scoring system!) 
SAVAGE ISLAND - A small Island In a remote ocean 
holds an awesome secret. Will you be the first to uncover 
it? SAVAGE ISLAND is the first part of a larger, multi- 
part Adventure. It will be necessary to purchase 
additional packages to complete the entire Adventure. 

Cassettes for S-80 Model I or III, and Apple II $14.95 

Disk for S-80 Model I or Apple II, (3 Adventures per disk, 

specify 1-3, 4-6, or 7-9) $39.95 

Adventures 1-9 on a single S-80 Model II Disk $99.95 
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"Note: Apple requires 24K and has no lower case, f Recommended for the novice adventurer, with many built-in HELPS! 
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VISICALC 

from Personal Software 

"Visicalc" is an interesting 
program. Put simply, it's a blank 
sheet of paper, a pencil with eraser, 
and a calculator. By combining 
these three tools, "Visicalc" has 
become one of the most powerful 
programs ever written for the 
micro. The "Visicalc" work area 
is simply a two-dimensional 
(63x254) grid in which any point 
on the grid can be either a numeric 
value or a alphabetic label. The 
unique thing about "Visicalc" is 
that any numeric element can be a 
formula deriving its value from 
other elements on the grid or work 
space. Learning the "Visicalc" 
command set is the hardest aspect 
of this package. There are many 
commands. Once learned, however, 
"Visicalc" has to be one of the 
easiest business programs to use. 
The most interesting thing about 
the package is that once your 
worksheet is complete, and all the 
formulas are in, you can change 
any value and all other values will 
change, if their formulas relate to 
the value of the location changed. 
Personal Software calls this playing 
"What If," and it's a good analogy 
because by altering values, it's easy 
to see the long range results to 
short-term decisions. No 
knowledge of programming is 
necessary to use "Visicalc," making 
it an even more attractive package. 
The package has full disk I/O and 
printer support. At the present, 
"Visicalc" is available for the 
S-80, Apple, PET, and Atari. The 
"Visicalc" diskette comes in a three- 
ring loose-leaf binder with 
complete documentation. For those 
of you needing more information 
from your system, "Visicalc" can 
give it to you. p^^^^-^ ^^^^ 

ENHANCED BASIC 

from Cornsoft 

You've all seen the ads, the ones 
promising to make your computer 
as powerful as a small tornado in 
only 6K. Well, there's a new 
tornado out now called 
Enhanced BASIC (ENHBAS). 
From Cornsoft, this disk resident 
BASIC really does give your 
system some incredible capabilities. 

80 



For $49.95, you get many new 
commands. Here are just a few: 
SCROLL: Sets a window on the 
screen so the lower portion of the 
screen scrolls up without the upper 
portion going off the screen. 
SORT: An intrinsic sort routine with 
complete user control over keys and 
carries. 

RENEW: Saves a program after a 
NEW. 

SIZE: Displays a program's size in 
bytes. 

POP: Pops a RETURN off the 
GOSUB stack. 

FIND: Finds a character string in a 
program. 

Some of the new features 
include audio keyclick, audio error 
tones, a CTRL-G which plays the 
Westminister Chimes, formatted 
listings, lower-case character driver, 
full control character suport, one 
letter commands, user-definable 
cursor, printer abort if printer not 
enabled, and last but not least, the 
POKE addresses to enable and 
disable the above features. 

As an editor who has used Level 
I, II, III, Microsoft BASIC, with 
and without Apparat alterations, I 
have finally found my BASIC. 

Cornsoft is a relative newcomer 
to the micro industry, but with 
products like "ENHBAS," I'm sure 
they'll do very well. 

I really had to scrape to find 
some drawbacks in "ENHBAS," 
but here's what I dug up. First, 
with all the features of "ENHBAS," 
I expected repeating keys, but alas, 
this simple feature is omitted from 
the system. Second, some control 
characters, CTRL-G for example, 
are not apparent when inserted 
into a text string. This feature 
ought to be incorporated into 
"ENHBAS". 

If you're after more power than 
you've ever seen before, 
"ENHBAS" is a great bargain. 

Phillip Case 
LUNAR LANDER 
from Adventure International 

I know what you're thinking. 
What? Another lunar lander? Why 
waste time on lunar lander #56251. 
But wait a minute, this one is 
really different. If you've seen the 
arcade lunar lander, you know 
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what you're in for. 

A.I.'s lunar lander is a I6K 
Machine Language program which 
is totally graphics-oriented. The 
game starts with a page of 
instructions explaining the use of 
the keyboard and the goal of the 
game. 

Once started, you're in a small 
LEM which is skimming across the 
lunar landscape. Below you are 
several landing areas, each 
requiring different skill levels to 
land successfully — the harder areas 
being worth considerably more 
points. 

You control your ship with retro 
rockets, which slow your descent, 
and course thrusters which control 
lateral movement. The lunar 
gravity, although weak, is still 
strong enough to make delicate 
control of the lander a difficult 
task. 

When you get within a given 
proximity of the surface, your 
display is switched to a close-up 
view for the final stages of landing. 
It's quite an impressive display. 

Although the game is very 
arcade-like, it is a real test of skill. 
1 played the game a dozen times 
before I could successfully touch 
down anywhere. After playing the 
game about a hundred times, there 
are still places 1 can't land, such as 
the overhanging lunar cliff, quite a 
challenge. 

You start with 5000 units of fuel 
and play until you run out, but 
each crash costs you a thousand 
units. There is a saving grace, 
however, in that hidden at the 
bottom of a ravine is a fuel depot. 
But landing there is no easy task. 

This game was the hit of the 
Northeast Computer Show this 
year in Boston. There was a cash 
prize for the highest score, which 
turned out to be 6400 points. Get a 
copy of "Lunar Lander" and try to 
top that. Phillip Case 

INTERACTIVE FICTION 
from Adventure International 

The advertising line is enough to 
make even the most determined 
novelist shudder and quake: "A 
new artistic medium"; or "Take 
part in a story instead of merely 
reading it!" Well, don't worry, it's 
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pure hype. "Interactive Fiction" is 
an interesting diversion, but hardly 
a new art form. 

Perhaps the best one-Une 
description of "Interactive Fiction" 
by Robert Lafore of Adventure 
International would be to call it a 
sub-genre of Adventures. You, the 
player, are presented with the text 
of a story. At certain points within 
that text you are asked to make 
decisions. Depending upon the 
decision you make, the story line 
develops differently. In some cases, 
the decisions you make don't affect 
anything at all, at other times the 
decisions you render are crucial to 
how the story unfolds. 

The way it works is simple: The 
program asks your name and sex 
and then plugs you into the story 
as the main character. You read 
about yourself and the other 
characters until the moment arrives 
and you are prompted to give a 
response. Once you give that 
response, your character is 
irrevocably committed to one set of 
options. Had you given a different 
answer, the options would in turn 
be different. The stories themselves 
come equipped both with happy or 
sad endings, your choice will 
determine the nature of your final 
destiny. 

While the concept is a sound 
one, "Interactive Fiction" has some 
problems in the execution of its 
expressed aims. In order to 
consider these, it may be best to 
look at the four programs currently 
on the market. They are: 
Six Micro Stories 
Two Heads of the Coin 
Local Call for Death 
His Majesty's Ship "Impetuous" 

Six Micro Stories may be the 
best of the lot for a number of 
reasons. It consists of six very 
short stories that have two or three 
possible endings each. ..(except for 
one of them). Each story, with its 
possible alternate endings, is tight 
and to the point. There is little in 
any of these stories that is 
superfluous, and the player can 
understand the consequences of 
decisions immediately. The 
drawback, of course, is that each 
story is over before one is really 
sure that it has started. But on the 
whole. Six Micro Stories is quite 
satisfying and leaves one thirsting 
for more. 

Two Heads of the Coin and 
Local Call for Death are longer 
pieces. Both are structured loosely 
along the lines of mystery/ detective 
stories, with a heavy debt to Sir 




Arthur Conan Doyle and his 
immortal Sherlock Holmes. In 
both cases, the player is called 
upon to solve a mystery. Once 
accomplished, there is little to hold 
the reader's interest. In the case of 
Local Call for Death, the reader is 
challenged not only to solve the 
puzzle, but also to list enough 
evidence to convict a criminal in 
court. This device extends the life 
of the program considerably, as 
opposed to Two Heads of the 
Coin, where the reader is 
abandoned virtually as soon as 
the puzzle is solved, even if it's solved 
by a lucky guess! Yet both 
programs are a lot of fun to tackle. 
The mysteries are well-conceived 
and the clues to the solution are 
deftly hidden within the text. Once 
you have figured out whodunnit, 
you can still play for hours with 
the lines of questioning and the 
ways of arriving at the inescapable 
conclusion. 

His Majesty's ship "Impetuous" 
is considerably more ambitious. 
Here Lafore has tried to write an 
open-ended story with several 
possible endings, and he has tried 
to structure it so that the 
reader/ player is unaware of the 
import of the decisions made. Where 
in previous stories the player is 
allowed to ask any question that 
comes to mind (with often 
incongruous and confusing results), 
in "Impetuous" yes or no decisions 
are presented. There is no 
way to work around this structure, 
and it is greatly to the benefit of 

SoftSide FEBRUARY. 1981 



the program that such is the case. 
There is no puzzle to solve, only a 
story to develop. The end goal is to 
survive and decisions that you 
make will dictate whether you do 
or not. However, you cannot 
decipher what is the proper course 
of action that will guarantee your 
success. There are enough critical 
points (decisions) in the program 
to make you uncertain of the result of 
your actions after several games. 
This greatly enhances the value of the 
program. 

What is perhaps the most 
interesting aspect of "Interactive 
Fiction" is watching it develop 
through the series. Lafore 
obviously is learning each time . 
around. The programs are getting 
better and better. His technique 
improves each time, or at least it 
seems to. Six Micro Stories and 
"Impetuous" have the longest 
replay time, and if their structure 
is pursued, the next couple of 
programs should begin to 
approach an Adventure in terms of 
playing time. 

But please, let's not make undue 
claims. "Interactive Fiction" is good 
software, it entertains and edifies. 
It is not anything close to a novel 
or a good short story, nor should it 
purport to be. If you are looking 
for something different in a game, 
something that is good fun and 
novel in its approach, try 
"Interactive Fiction" You won't be 
disappointed. Just don't expect 
Flaubert, James or Twain. £?t 



Dave Albert 
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continued from page 18 

APPLE VERSION 

105 DIM C»(7),Cl(7),C2(7),Fi(5) 
360 F A$ = "D" THEN SB = 15FS = 

i; GoaiEi 8000 : goto zoo 

2999 REM PRINT SUBROUTINE VERS.I 

3000 IF NI = - 1 THEN GOSUB 90 
00! RETURN 

3005 PRINT "(S) SELECT FORMAT, 

R (D) DEFAllT";: GET A**. PRINT 

3006 IF A$ = "S" THEN GOSUE 100 
OOJFS = 2! GOTO 3010 

3007 IF At < > "D" THEN 3005 

3008 FS = 1 

3010 F'RINT "(S) SCREEN, OR (P) P 
RINTER"!! GET A$i PRINT 

3020 IF A* = "P" THEN SB = 2: GOTO 
3050 

3030 IF A* < > "S" THEN 3010 

3010 SB = i: PRINT : PRINT "AFTER 
EACH RECORD <ESC> WILL RETU 
RN TO": PRINT "THE ICNU, ANY 
OTHER KEY CONTINUES." 

3050 FraNT "<F-RESS ANY KEY)": GET 

At: Gosue 8010 

3090 IF SE: = 2 THEN PR* 
3100 RETURN 

3299 REM PRINT Of£ ffEOM TO SCR 
EEN, VERS.'} 

3300 m FS GOStB 3700,3800 

3310 GET A*: IF At = CHRt (27) THEN 

RS = 1 
3350 RETURN 

3599 REM PRINT {M. RECORD TO PRI 
NTER, VERS.1 

3600 ON FS GOSl«: 3700, IMOO 
3640 RETURN 

3699 REM PRINT ONE DEFAULT M.l 

3700 PRINT : PRINT "RECORD "51 + 
i: PRINT 

3710 FOR J = TO NH 

3720 FraNT Ht(J),I4(I,J) 

3730 VEX\ J 

3710 RETURN 

3799 REM F-RINT ONE FORMAT V.l 

3800 J = i;t = o:Bt = "" 

3820 Jl = WL ( MIDt (Ft(T),J,l) 

):j = J + 1 
3830 IF Jl < 5 THEN N = VAL ( MIDt 

(Ft(T),J,2)):j = J + 2 
3810 ON Jl GOTO 3850,3860,3870,3 

890,3910,3970 
3850 At = H$(N): GOTO 3950 
3860 At = It(I,N): GOTO 3950 
3870 B$ = LEFTt (Bt,N - 1): IF LEN 

(Bt) < N - 1 THEN FOR J2 = 

LEN (Bt) TO N - 2:Bt = Et + 

" ": mj 

3880 GOTO 3960 

3890 PRINT Bt: IF N > 1 THEN FOR 

J2 = 2 TO n: print : NE)a 

3900 Bt = "": GOTO 3960 

3910 IF J> LEN (Ft(T)) THEN T = 

T + i:j = 1 



3920 J2 = J 

3930 IF MIDt (Ft(T),J2,l) < > 

"!" THEN J2 = J2 + i: GOTO 3 

930 
3910 At = MIDt (Ft(T),J,JZ - J): 

J = J2 + 1 
3950 Bt = Bt + At 
3960 IF J> LEN (Ft(T)) THEN T = 

T + 1!J = 1 
3965 GOTO 3820 
3970 F'RINT Bt: RETURN 

9999 F£M PRINT FORfttTTING,V.l 

10000 IF Ft(0) = "" THEN 10010 
10010 PRINT "SAfE FORMAT?";: GET 

At: PRINT 
10020 IF At = "Y" THEN RETURN 
10030 IF At < > "N" THEN 10010 
10010 PRINT "(L) LOAD FORMAT, OR 
(C) CREATE FORMAT";: GET At 

: PRINT 
10050 IF At = "C" THEN 10200 
10060 IF At < > "L" THEN 10010 
10100 INF-UT "FORfWT NAME:";At 
10110 F-RINT Dt;"GPEN";At 
10120 PRINT Dt;"READ";At 
10130 INPUT NF 
10110 FOR J = TO NF: INPUT Ft( 

J): NE)a 
10150 PRINT Dt;"aosE";At 
10160 RETURN 

10200 NF = o:j = 0:Ft(0) = "" 

10210 HOME : PRINT "ST(«T IN THE 
UFfER LEFT CORNER AND WORK 

ACR-OSS EACH LINE." 
10220 F'RINT "SHEADING, 2:iTEM, 

3:TA£:, i:f£XT LINE, 5:STRIN 

G, 6:end": input ji 

10230 IF Jl < 1 OR Jl > 6 THEN 1 

0220 
10210 Ft(NF) = Ft(NF) + STRt (Jl 

):j = J + 1 
10250 ON Jl GOTO 10260,10260,103 

00,10300,10350,10100 
10260 FOR T = TO NH: PRINT T + 

i;") ";Ht(T): NE)a 
10270 INPUT "mhich?";t:t = T - 1 

: IF T < OR T > NH THEN 10 
270 
10280 GOTO 10310 

10300 INPUT "HOW many?";t: if t < 

1 OR T > 99 THEN PRINT "OUT 
OF RWGE.": GOTO 10300 
10310 At = STRt (T): IF T < 10 THEN 

At = "0" + At 
10320 FHW) = Ft(NF) + At:j = J + 

2 
10330 GOTO 10380 
10350 INPUT "STRING:";At:At = At 

10360 IF LEN (At) + J > 255 THEN 
^F = NF + 1:J = 0:Ft(NF) = " 

II 

10370 Ft(NF) = Ft(NF) + At: J = J + 
LEN (At) 



10380 IF J > 252 THEN fF = NF + 

i:j = 0:Ft(NF) = "" 
10390 GOTO 10220 
10100 INPUT "FORittT NAME:";At 
10110 PRINT Dt;"OPEN";A$ 
10120 PRINT Dt;"HRnE";At 
10130 PRINT NF: FOR J = TO NF: 

PRINT Ft(J): NEXT 
10110 PRINT Dt;"aosE";At 

10150 RETURN 



ATARI VERSION 

30 DIM FIt(20) 

105 DIM Cl(7),C2(7),Ft(10fl),Bt(100),Ct 

(100) 

200 RL=(NH+1)iIL;PRINT "}(S) SAVE CURR 

ENT DATA" 

360 IF CHRt(A)="D" THEN SB=1:FS=1:G0SU 

E 8000:GOTG 200 

1000 PRINT :PRINT "ENTER INPUT FILESPE 

C";:input Fit 

1020 At="D:":A$(LEN(At)+l)=FIt:OPEN #1 

,1,0,At 

1013 INPUT *1,IL:DIM TtOWIL+IL+1) 

2000 PRINT :PRINT "ENTER OUTPUT FILESP 

EC";:iNPUT Fit 

2100 At="&:":At(LEN(At)+l)=FIt:OFEN tl 

,8,0, At 

2135 IF LEN(Ht)<=SEG+219 THEN PRINT *1 

;Ht(SEG,LEN(H$)):GOTQ 2170 

2235 IF LEN(It)<=SEG+219 THEN PRINT »1 

;it(SEG,LEN(It));GOTO 2260 

3000 IF Nl=-1 THEN GOSUE; 9000:RETURN 

3005 PRINT :PRINT "(S) SELECT FORMAT, 

OR (D) DEFAULT"; :get *2,a:print 

3006 IF C*t(A)="S" THEN GOajB 10000 :F 
S=2:G0T0 3010 

3007 IF CHRt(A)0"D" Tl€N 3005 

3008 FS=1 

3010 PRINT :PRINT "(S) SCREEN OR (P) P 

RINTER ?":PRINT 

3015 GET «2,A 

3020 IF CHRt(A)="P" THEN SB=2:G0T0 305 



3030 IF CHRt(A)0"S" THEN 3015 

3010 SB=i;PRINT :PRINT "AFTER EACH REC 

GO <EK:> HILL RETIIIN TO":PRINT "TfC ME 

NU, ANY OTfCR KEY CONTINIES." 

3050 PRINT "PRESS ANY KEY":GET *2,A:G0 

sue 8010 

3090 CLOSE *3:P0KE 752,0 

3100 RETURN 

3299 REM PRINT ONE REC(H) VERS. 1 

3300 ON FS GOSUB 3700,3800 
3310 GET ♦2,A:IF A=27 THEN RS=1 
3350 RETURN 

3135 LPRINT "RECORD ";I+1:LPRINT " " 

3599 REM PRINT ONE RECOM) TO PRINTER, 
VERS. 1 

3600 ON FS GOSUB 3700,^00 
3610 RETURN 

3700 PRINT ♦3:PRINT *3J"RECa«) ";i+i:p 

RINT »3 

3710 ¥m J=0 TO NH 

3720 PRINT »3;Ht(JxHL+l,JxHL+HL);it(Ii 

RL+l+JiIL,IiRL+JxIL+IL> 
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3730 NDtT J 
3710 RETURN 
3799 REM F'RINT OVE FORMAT 

38«8 j=v.t=o:b*="" 

3802 if f*(len(f») )0"6" then f»(len(f 

»))="6" 

3820 J1=VAL(F$(J,J)):J=J+1 

3830 IF JK5 TfCN N=VAL(F»(J,J+l)):j=d 

+Z 

3810 ON Jl GOTO 3850,3860,3870,3890,39 

10,3970 

3850 Ai=H$(NiH+l,NiH+tl):GOTG 3950 

3860 A$=I«(IiRL+l+NiIL,IiRL+NiIL+IL)'.G 

OTO 3950 

3870 FOR 0Q=1 TO N:B«(LEN(B»)+1)=" ":n 

EXT QQ 

3880 GOTO 3960 

^0 PRINT »3;e»!IF N>1 THEN FOR J2=Z 

TO NJPRINT *3:NEXT J2 

3900 E:t="":GOTO 3960 

3910 REM 

3920 J2=J 

3930 IF F$(J2,J2)0"!" THEN J2=J2+r.G0 

TO 3930 

3910 A*=fi(J,J+(J2-J)-l):j=J2+l 

3950 e$(LEN(B»)+l)=A» 

3960 REM 

3965 GOTO 3820 

3970 PRINT *3;B»tRETURN 

1009 DIM T»(NHxIL+IL) 

1010 PRINT JPRINT "RECORD Nl*1E£R ";NI+ 

1 '.PRINT :for j=o to NH 



5081 I»(IiRL+l+JiIL,IiRL+JiIL+IL)=A$ 
8200 RS=OJIF SB=2 THEN OPEN »3,8,0,"P: 
":G0T0 8250 
8210 OPEN *3,8,0,"S:"iPt»(E 752,i:PRINT 

II II 

9999 REM PRINT FORMATTING, V.l 

10000 IF ?%="" THEN 10010 

10010 PRINT "SAME FORMAT?"; tGET *2,A:P 
RINT 

10020 IF CHR»(A)="Y" THEN RETURN 
10030 IF Om{(\K>"H" THEN 10010 
10010 PRINT "(L) LOAD FOR-MAT, OR (C) C 
REATE FtRMAT";:GET »2,AiPRINT 
10050 IF CHR»(A)="C" TfCN 10200 
10060 IF CHR*(A)0"L" THEN 10010 
lOlflfl PRINT "ENTER FORMAT NAffi"j:iNPUT 
FI» 

10110 A»="D:"tA»(LEN(A»)+l)=fI$:OPEN * 
1,1,0,A* 
10120 REM 
10135 F»="" 
10110 INPUT *l,NF;FOfi J=0 TO NFtlhFUT 

»i,a$:f$(len(F*)+1)=a$:next j 

10150 CLOSE *1 

10160 RETURN 

10200 NF=0:j=OiF»="" 

10210 GRtftllCS 0:PRINT "START IN Tl€ U 

Ff-ER LEFT CO^CR AM)":PRINT "IfflRK ACRO 

SS EACH LINE." 

10220 PRINT "KHEAOING, 2:nEM, StTAB, 

i!NEXT line":print "5:string, 6;em)": 

INPUT Jl 

10230 IF JKl OR Jl>6 THEN 10220 



10210 f*(len(f«)+i)=str$(ji):j=j+i 

10250 ON Jl GOTO 10260,10260,10300,103 

00,10350,10100 

10260 FOR T=0 TO IWtPRINT T+IJ") "',Hi( 

TiHL+l,T«HL+HL)!fOT T 

10270 PRINT "WHICH?" ;:iNPUT t;t=t-i;if 

T<fl OR T>NH then 10270 
10280 GOTO 10310 

10300 PRINT "HON MANY?";:iNPUT TtIF T< 
1 OR r>99 THEN PRINT "OUT OF RANGE.":G 
OTO 10300 

10310 A»=STR»(T):iF T<10 THEN At="0":A 
»(LEN(A»)+1)=STR$(T) 
10320 F»(LEN(F*)+1>=A»:J=J+2 
10330 GOTO 10380 
10350 PRINT "STRING:"; :INPUT a$:a$(len 

(A»)+l)= 

10370 F»(LEN(F*)+1)=A»:J=J+LEN(A$) 

10380 REM 

10390 GOTO 10220 

10100 PRINT "FORMAT HAMEVT.INPUT FI$ 

10110 A»="D:":A»(LEN(A$)+l)=n$;OPEN # 

1,8,0,A$ 

10120 PRINT »1;INT((LEN(F*)-1)/250) 

10130 FOR J=fl TO INT((LEN(F»)-1)/Z50) 
10132 TF LEN(F»)<Ji250+250 THEN PRINT 
ti;F»(JJi250+l,LEN(F»)):GOTO lOHO 

10131 PRINT »1;F«(J«250+1,Jx250+Z50):N 
EXT J 

lOUG REM 

10115 aOSE *1 

10150 RETURN 

LINE 1006 SHOULD ALSO BE DELETED. 



© 








The tension mounts as the aliens get closer 
and closer .... Your barriers are rapidly 
vanishing and you're running short on ammo . . 
you think you can obliterate the rest of them before 
they get to you For weeks you've been practicing for this 
moment Zap! Too bad, they got you. So you dig into your 
pocket for another quarter. Alas, you don't have any more 
quarters. Do yourself a favor. Don't let this happen to you. Save up 

your quarters until you have 120 of them, then buy ARCADE 

CLASSICS by Hayden. Not only do you have unlimited aliens to wipe 

out, but you get three more exciting games to play! 

ARCADE CLASSICS comes with "Cosmic Raiders," multi-speed "Pinball," 

"Ricochet," and "Blockade." Each game provides you with countless 

hours of fun and thrill. At 30 quarters a game, it's a wise investment. 

S-80, 4K, Level I or II Cassette $29.95 





6 South St.Milford, NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1 ■800-258-1 790 




FROM PERSONAL 
SOFTWA=lE INC. 
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DARTS 




by John Daoust 

"Darts" is written for the Apple 
in Integer BASIC and uses about 
2K of RAM. 

"Darts" is a two-player game of 
eye/hand coordination which you 
play with the safety and comfort 
of your Apple game paddles. (No 
more dart holes in your panelled 
walls'.) 

The dart board is shown at the 
top of the screen, while the darts 
to be thrown pass by at the 
bottom. Each player throws three 
darts per turn, which are released 
by pressing the paddle button. Hits 
score from 10 to 50 points, and the 
first player to tally exactly 210 
points is the winner. 
Variable Listing 
Nl$, N2$: Players' names. 
A$: General variable. 
SCRl, SCR2: Players' scores. 
N: Dart count. 
X, Y, F: For/next variables. 
TURN: Turn pointer. 
HIT: Score for throw. 
lY: Graphic factor for scoring. 
P, D, S: Sound variables. 



3D DIHN1$(20),N2$(20),A$(20) 

34 GOSUB 7100 

35 P=230JD=5 
10 CALL -936 

41 TAB 15: PRINT "DARTS" J PRINT 

: PRINT 
56 INPUT "ENTER FIRST PLAYER'S NAME 

",N1» 
58 INPUT "ENTER SECOM) PLAYER'S NAM 

E ",N2$ 

Main routlne< 
80 GOSUe 1000 

100 scri=o:scr2=o:n=i 

105 CALL -936 

106 GOSUB 4500 
130 FOR X=fl TO 39 

132 COL0R=15: PLOT X,39 

135 IF PEEK (-16287+TURN)>127 THEN 

GOSUB 2000 
148 COLOR=0: PLOT X,39 • 
155 ICXT X 
200 GOTO 130 
900 END 
Routine to draw dart board > 

1010 GR 
1020 C0L0R=9 



1030 FOR F=10 TO 13J VLIN 0,3 AT 

F: VLIN 0,3 AT F+15t NEXT F 
1035 C0L0R=6: FOR F=14 TO 16: VLIN 

0,3 AT F: VLIN 0,3 AT F+8: NEXT 

F 
1040 C0L0R=13: FOR F=17 TO 18: VLIN 

0,3 AT F: VLIN 0,3 AT F+3: NEXT 

F 
1045 COLOR=i: VQN 0,3 AT 19 
1050 C0L0R=8: HLIN 0,39 AT 
1095 RETURN 
Dart throning routine. 

2000 FOR Y=39 TO STEP -1 

2003 COL0R=15 

2005 PLOT X,Y 

2030 IF SCRN(X,Y-1)«0 THEN 2050 

2038 COLOR=0: PLOT X,Y 

2040 NEXT Y 

2050 N=N+1 

2055 GOSUB 7000 

2060 F TURN=1 THEN 3000 

2065 F TURN=0 THEN 4000 

2490 X=0 

2500 RETURN 

Player nunber 2'5 turn. 

3000 REM 

30211 F fte4 THEN Iljefe=(l 

3022 F N=4 THEN GOSUB 1000 

3025 F N=4 THEN N=l 

3030 GOSUe 5000 

3050 SCR2=SCR2+Hn 

3052 IF SCR2>210 THEN SCR2=SCR2- 

HH 
3055 GOSUB 4500 
3400 GOTO 2490 

Player riu«ber I's turn. 

4000 REM 

4020 F N=4 THEN Tlfl»<=l 

4022 IF N=4 THEN GOSUB 1000 

4025 IF N=4 THEN N=l 

4030 GOSUB 5000 

4050 SCR1=SCR1+Hn 

4052 F SCR1>210 THEN SCR1=SCR1- 

HH 
4055 GOSUB 4500 
4400 GOTO 2490 

Print score. 

4500 CALL -936 

4510 VTAB 2i: PRINT NliJ" = "{SCRl} 
: TAB 20: PRINT N2*;" = ";SCR2 

4515 F SCR1=210 OR SCR2=210 THEN 
GOSUB 6000 



4518 VTAB 23: TAB 10 

4520 F TURN=0 THEN PRINT N1«;"'S TUR 

N SHOT ";nj" 
4522 IF TURN=1 IVEH PRINT N2*;"'S TUR 

N SHOT "JNJ" 
4550 RETIKN 

Calculate score. 



5000 REM 
5010 Hn=o 
5015 IY=1 
5020 F Y=5 THEN 

5022 F Y=6 THEN 

5023 F Y=7 THEN 

5024 IF Y=8 THEN 
5030 IF SCRN(X,Y- 


5032 F SCRN(X,Y- 

10 
5034 IF SCRN(X,Y- 

20 
5036 F SCRN(X,Y- 

30 
5038 F SCRN(X,Y- 

50 
5100 RETURN 



IY=2 
IY=3 
IY=4 
IY=5 
■IY)=8 THEN Hn= 

IY)=9 THEN Hn= 

n)=6 THEN Hn= 

n)=13 THEN Hn= 

n)=l THEN Hn= 



End-of-gane routine. 

6000 FOR S=l TO 50: GOSUB 7000: NEXT 

S 
6003 VTAB 23: INPUT "MOULD YOU CARE T 

PLAY AGAIN ",A$ 
6005 F SCR2=210 THEN TURN=0 
6007 F SCR1=210 THEN TURN=1 
6010 F A$(1,1)="Y" THEN 80 
6020 TEXT : CALL -936: END 

Call sound routine. 

7000 POKE o,p: poke i,d: call 2: 

RETURN 
Poke sourid generator. 

7100 POKE 0,230: POKE 1,0: POKE 
2,173: POKE 3,48: POKE 4,192 
: POKE 5,136: POKE 6,208: POKE 
7,4: POKE 8,198: POKE 9,i: POKE 
10,240 

7110 POKE 11,8: POKE 12,202: POKE 
13,208: POKE 14,246: POKE 15 
,166: POKE 16,0: POKE 17,76 
: POKE 18,2: POKE 19,0: POKE 
20,96 

7120 RETURN 



® 
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TIHME D 

Create 3- 

dimensional 

graphics! 

by Mark Pelczarski 



3-climensional figures can 
be rotated, shifted, scaled, 
or distorted. Each figure 
can be saved on disl< and 
later assembled into larger 
figures, with each part 
capable of being 
manipulated. Screen 
images may be saved and 
used with other programs. 

48K Applesoft ROM 
$29.95 on diskette 




TO ORDER 
TOLL FREE 
1-800-258-1790 

On NH call 673-5144) 
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HI RESOLUTION 
DRAWING 

Connect any points on 
the screen, fill areas, 
paint with a set of nine 
"brushes" (or define 
your own), and 
draw with, plot, 
rotate, and scale 
shapes that 
you define. 





SHAPE 
TABLE 
DESIGNER 

Design shape tables with 
keystrokes or paddles. 

Also included are Applesoft 

Invaders and Slot Machine — 

colorful variations of well-known 

diversions whose graphics were 

created with this package , and 

instructions for saving graphics 

on disk and putting them in your 

own programs 
32K Applesoft , ROM 

$29 95 on diskette 
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COMPUTER 

OPPONENT 

PROGRAM FOR 

THE APPLE II 

AND TRS-80 

PE^SONAl SOFTWARE INC. 

"MONTY TM plays 
Monopoly"* is a computer 
opponent program designed to 
be used along with your Parker 
Brothers Monopoly game. You 
will need the board and all of the 
equipment that comes with the 
game to use this computer 
opponent program. 

MONTY TM provides a new 
dimension in microcomputer 
software. You will come to 
know him as simply another 
player, a bright, entertaining 
guest who provides real 
excitement for many of your 
favorite board games. 

MONTY TM written in 
machine language, works with a 
16K TRS-80 Level II or 16K 
Apple or Apple II plus. Cassette 
$24.95. Diskette $27.95. 



The 
Exchange 

TO ORDER TOLL FREE 

1-800-258-1790 

(In NH call 673-5144) 
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WHAT'S NEW 




By Edward E. Umlor 

February seems to be the month 
of new beginnings. In this column, 
we hope to be able to give you 
information on NEW products 
being offered by supporters of the 
microcomputer industry. Things 
will be a little bare this month, 
because we are just getting started. 
One of the very first things we 
ueed to do is holler "HELP!!!!!" If 
you are a manufacturer, please 
send us copies of your new product 
releases for publication. If you are 
a computer person that has bought 
something new for your setup, 
write a review of the product (good 
points and problems) and submit it 
for publication. We are looking for 
reviews of both hardware items 
and software. The intent is to have 
two sections: one for hardware, 
and one for software. We look 
forward to publishing your reviews. 
HARDWARE 

The hardware item for this 
month is the "DOUBLER." We are 
a little late in talking about this 
product from: 

PERCOM DATA COMPANY 

211 North Kirby 

Garland, Tx 75042 

Well it's better late than never. 
The Doubler has been in use in 
Hardside's service department for 
about three months. This is long 
enough to get a feel for its 
durability. To date, there has not 
been any trouble in our machines 
and only one out of almost 200 
sold has come back with a 
problem. That is a very good 
quality control percentage for the 
manufacturer. 

How is this modification 
installed? Easily. It is so easy that 
many people might not take the 
necessary care to insure proper 
operation. The biggest thing to 
watch out for is static electricity. 
Your body can build up a static 
charge of a thousand volts or 
more. Remove the bottom of the 
expansion interface, carefully 
remove the 1771 (40 pin chip, be 
sure to mark the pin 1 end on the 
board), install the 1771 into the 
Doubler in the socket provided, 
insert the Doubler into the socket 
on the interface board vacated by 
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the 1771, and replace the bottom. 
This completes the installation. 
Will 1 still be able to run my 35 
track single density disk? YES!!! 
The data transfer is much more 
reliable, because the Doubler has a 
high performance data separator 
circuit as well as the 1791 chip that 
allows double density operation. 

DOUBLE DENSITY? Yes, 
double density format as well as 
the standard single density format. 
Single density is ten sectors per 
track for a total of two grans 
(gran=five sectors or 1.28K bytes 
of storage) per track. The standard 
35 track drive has a maximum of 
70 grans for storage. This is called 
MFM format to the write head 
and does not require as high a 
frequency capability. Double 
density is 18 sectors per track for a 
total of 3.6 grans per track. The 
standard 35 track drive now has a 
maximum of 126 grans of storage. 
This is a 180% increase in data 
stored per disk. As a side benefit, 
the rate of data transfer is also 
increased by a factor of 180%. This 
should be good news to all you 
Galactic Maillist users. A friend 
and I measured the time for an add 
of one name to a list of just over 
200, and found the sort and store 
time reduced by almost 1/3. The 
head write format is MMFM (M 
squared FM) and requires a much 
higher frequency capability head. 
Almost all manufacturers of disk 
drives use heads that are 
compatible with double density. 
The only drives that 1 have heard 
of that do not work well with the 
Doubler are all over a year old. 
You will be able to start working 
in double density right away as 
PERCOM supplies an operating 
system with the Doubler. 
SOFTWARE 

In this area of software, I would 
like to cover three operating 
systems for running double density: 

1. DOUBLEDOS (supplied with 
the Doubler), 

2. NEWDOS80/DOUBLEZAP 1.1. 
AND 

3. NEWDOS80/DOUBLEZAP 2.0. 
1. DOUBLEDOS: 

This operating system is an 
enhanced version of TRSDOS that 
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will run double density and 
corrects some of the problems that 
the Tandy system displays from 
time to time. Any program that 
runs under TRSDOS, runs well 
under DOUBLEDOS with only a 
few exceptions. I have not come up 
with one yet and Galactic Maillist 
as well as Special Delivery have 
been converted. They both run fine 
and error-free. DOUBLEDOS can 
be used to run single as well as 
double density files. The S is used 
before the file name of a single 
density file and is not used for a 
double density file. It comes with 
sufficient documentation to give 
you the changes in format from 
TRSDOS. If you are used to 
working with TRSDOS, 
DOUBLEDOS should not pose 
any problem. 

2. NEWDOS80/DOUBLEZAP 
1.1: 

The Circle J Software Ranch has 
produced two sets of zaps for 
NEWDOS80. This first effort of 
theirs has one big advantage over 
the second version: the ease of 
double backup and double format. 
The documentation is fairly 
complete and after generating your 
new double density compatible 
disk, you will be able to run all 
your NEWDOS compatible 
programs. Again the $ is used as a 
single density designator with the 
addition of the word SINGLE 
being added to the beginning of 
each line that requires a single 
density file. SUPERZAP/CMD 
will not function under 1.1, but 
SUPERZAP/BAS seems to work 
fine. The fun of this and 
DOUBLEDOS is having to keep 
track of your single density and 
double density files. 

3. NEWDOS80/DOUBLEZAP 
2.0: 

The Circle J Software Ranch has 
updated their zap and are 
producing the 2.0 version. This 
corrects some of the bother of 
using mixed density disk. The 
greatest addition is the 
ADR/CMD program. This gives 
you "AUTOMATIC DENSITY 
RECONGNITION" for running 
mixed density disk. The two 
previous operating systems would 

continued on next page 



HARDWARE CORNER 





by Edward Umlor 

This is a new feature for 
SoftSide magazine. This corner of 
the magazine will be dedicated to 
giving hints, answering questions, 
and helping to understand some of 
the "black magic" that goes on 
inside your computer. 

Who is that masked hardhead 
from Hardware Corner? The name 
is Edward E. Umlor: a jack of 
many trades and an expert in none. 
When 1 started in electronics 
(1956), the germanium diode was 
the very latest thing and the 
transistor was only hinted at by 
Bell labs. As a grounded flyboy 
(ground radar maintenance) in the 
USAF, basic electronics was 
hammered through solid granite by 
greatly exasperated instructors. 
After three years, eleven months, 
twenty-eight days, and 8 Vi hours, 
the gates swung wide and in 1961 1 



was released upon an unsuspecting 
populace. From 1961 until 1966 1 
wandered through the space 
program working on PCM (Pulse 
Code Modulation) telemetry 
systems and the back-up guidance 
to the LEM (Lunar Excursion 
Module). In 1966 the call of 
computers got me and Honeywell 
accepted me as a system test 
technician. After working up to a 
full engineer (no sheepskin) with 
them, I was laid off in the big 
cutback in 1975. Since then, the 
microcomputer has come along to 
keep me busy. 

The aim here is to be of help in 
the area of hardware. For example, 
there are many reasons why a tape 
will not load in your machine (the 
subject of next month's article). 
Each computer has its own 
personality, and each make of 
computer has its own unique set of 
rules for loading. There will also be 
a description of how we record our 
tapes, why we do it the way we do, 
and some hints to help you load 
the tapes more easily. 

1 will be looking forward to 
hearing from you about some of 
the problems you are having with 
your hardware. This way you will 
receive direct help in the areas 
where you most need it. 1 do not 
profess to be an expert on all types 
(or any, for that matter) of 



WHAT'S NEW 

continued from previous page 

not let you get a DIRectory or run 
a FREE command on a single 
density disk. With ADR, you now 
have full access to the single 
density disk and the COPY 
command is in the same format as 
single density only. For example; 
COPY SUPERZAP/CMD:1 TO : 

will copy SUPERZAP from a 
single density disk in drive 1 to a 
double density disk in drive 0. The 
assembly language SUPERZAP 
will work on a 2.0 zapped doubled 
density NEWDOS80. The one area 

1 don't like is the sequence for 
making a backup of the double 
density disk: Format a disk, copy 
over, and then fixboot. The double 
backup command of ZAP 1.1 is 
much easier to use. 



RECOMMENDATION: 

The system that 1 have found 
easiest to use is a combination of 
DOUBLEZAP 1.1 & 2.0. The 
NEWDOS80 is a very convenient 
operating system and when coupled 
with the ZAP 2.0 and the 
DOUBLE/CMD from ZAP 1.1. 
You will need to have a zapped 
disk of each for checking out the 
operating systems that will suit you 
the best. All the materials and 
programs you need are available 
from TSE/ Hardside with the 
exception of DOUBLEZAP 2.0 
(Hope to have it available in the 
near future). 

1 hope that this information will 
be of help to you when you are 
looking for a way to expand your 
storage capacity on a limited ^TL 
budget. -^ 



microcomputers. The thing going 
for me is several years in the field 
and a desire to learn more. Not all 
questions can be answered in this 
column, but a earnest endeavor 
will be made to cover the 
maximum area in each article. 
Please write to me in care of the 
magazine with your questions and 
comments. 

Here is a little quickie to help all 
of you that are thinking of buying 
an MX-80 printer for your Model I 
Level II S-80, and do not have an 
interface in your system. This 
means that you plan to buy the 
R/S printer cable with the in line 
buffer (P/N 26-1411). The 
electronics in this cable DO NOT 
receive power from the keyboard. 1 
would have expected R/S to 
supply the 5 volts from the 
keyboard as both ground and 5 
volts are available. Just to be 
different, they decided that the 
printer should supply these needs. 
After all, we can't load down the 
keyboard too much. The 5 volts 
must appear on pin 18 of printer 
(Centronics "D" type) connector. 
Apparently R/S uses the voltage 
from the printer to drive an 
exerciser circuit for test purposes. 
They don't have to tie up a 
computer for testing the printers by 
doing this. The MX-80 doesn't 
have the 5 volts available on pin 
18. This condition can be corrected 
by jumpering 5 volts to pin 18 on 
the inside of the MX-80 printer. 
Once this is done, your printer will 
function with the R/S printer 
interface cable just like downtown. 
This problem may occur with other 
makes of printers. The best way to 
find out is to look at the pin 
connections chart in the manual of 
the printer you plan to buy. If the 
5 volts are missing from pin 18, 
have the people you are buying 
from install a jumper, or if you 
have the expertise and it will not 
void your warranty, do the job 
yourself. 

Please remember to write in with 
your questions, comments, ...etc., to 
Ed Umlor in care of SoftSide 
magazine. Looking forward to 
helping unconfuse (or confuse) you 
in future articles. This is Granite 
K noggin signing off for this month. 
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MODEL II $3599 



COMPUTERS 

TRS-80 Model I, 64K RAM (#26-4002) $3599.00 

TRS-80 Model III, 16K RAM (#26-1062) $919.00 

TRS-80 Model III, 48K RAM (#26-1062-)-) $1039.00 

TRS-80 Model III, 48K, RS232, 2-drlv6S(#26-1063) $2299.00 

TRS-80 Pocket Computer w/lnterface (#26-3501 -i- ) $259.00 

TRS-80 Color Computer, 4K RAM (#26-3001 ) $359.00 

TRS-80 Color Computer, 16K RAM (#26-3001 -i- ) $399.00 

TRS-80 Color Computer, Extended BASIC (#26-3002) $529.00 




POCKET COMPUTER $259 

with interface 



MODEL I PERIPHERALS 

COMM-80 Interface (#4-80) $159.00 

CHATTERBOX Interface (#4-81) $239.00 

DISK-80 Interface, 16K RAM (#4-82) $339.00 

DISK-80-i- Interface, 16K RAM (#4-83) $369.00 

BUSY BOX Interface (#4-01) $99.95 

LYNX Communications Interface (#19-80) $229.00 

RS Expansion Interface, 32K RAM (#26-1140-32) $399.00 

16K Memory Kit, TRS-keypad (#5-1102-1) $59.00 

16K Memory Kit, TRS-lnterface (#5-1102) $59.00 

ORCHESTRA-80 (#15-03) $79.95 

Upper/Lower Modification Kit (#15-02) $24.95 

CPU Speed-up Modification kit (#15-04) $37.50 

Video Reverse Modification kit (#15-05) $23.95 

2-port TRS-BUS Extender (#15-12) $29.95 

3-portTRS-BUS Extender (#15-1 3) $39.95 

TRS-80 Model I Dust Cover Set (>^16-01) $7.95 

TRS-80 Model I Carrying Case (#17-201) $109.00 

TRS-80 Monitor Carrying Case (#17-202) $84.00 

Dual Joysticks for Color Computer (#26-3008) $24.95 

VIoTA Model II 8" Disk Drive, 1 (#7-4001) $939.00 

VISTA Model 11 8" Disk Drives, 3 (#7-4002) $1795.00 

CTR-80A Cassette Recorder and Cable (#26-1206) $59.95 

TRS-80 Model III Dust Cover (#16-05) $7.95 



MODEL III $919 



MODEL I DISK DRIVES 

HARDSIDE 40-track Drive (#7-40) $329.00 

PERCOM TFD-40 Drive (#7-99) $379.00 

PERCOM TFD-100 Drive (#7-100-1) $399.00 

HARDSIDE 80-track Drive (#7-80) $449.00 

PERCOM Dual TFD-100 Drives (#7-100-2) $799.00 

PERCOM Data Separator (#7-03) $29.95 

PERCOM Doubler (#7-07) $199.95 

HARDSIDE Extender Cable (#7-02) $15.95 

HARDSIDE 2-Drive Cable (#7-04) $29.00 

HARDSIDE 4-Drive Cable (#7-05) $39.00 




COLOR 

COMPUTER 

$359 



TERMS: 



TERMS: Prices and specifications are subject to change. HARDSIDE accepts VISA & MASTERCARD. 
Certified checks and Money Orders; Personal checl<s accepted (tatces 3 weeks to clear). HARDSIDE pays all 
shipping charges (within the 48 states) on all PREPAID orders OVER $100.00. On all orders under $100 a 
$2.50 handling charge must be added. COD orders accepted (orders over $250 require 25% deposit) there is 
a $5.00 handling charge. UPS Blue Label, and Air Freight available at extra cost. 




6 South St.Milford, NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1. 800-258-1 790 
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FROM 

A ATARI 




® 



A WarniT Communications 



Company^O 




MEMORY MODULES 



HARDWARE 



ATARI 400 Computer System, 8K $439.00 

ATARI 400 Computer System 16K $499.00 

ATARI 800 Computer System, 16K S829.00 

ATARI 410 Program Recorder $69.00 

ATARI 810 Disk Drive $499.00 

ATARI 815 Dual Density Disks $1299.00 

ATARI 820 Printer (40 col.) $369.00 

ATARI 822 Thermal Printer $389.00 

ATARI 825 80/132 col. Printer $769.00 

ATARI 830 Acoustic Modem $1 79.00 

ATARI 850 Interfae Module $179.00 

MACROTRONICS Parallel Printer Int $69.95 

ATARI Light Pen $69.95 

16K RAM Memory Module $169.00 

ATARI Joystick Controllers $19.95 

ATARI Paddle Controllers $19.95 

ATARI 800 Dust Cover $7.95 

ATARI 400 Dust Cover $7.95 




ROM PROGRAMS 



SOFTWARE 

Basketball $39.95 

Music Composer $59.95 

Basic Electricity - cassette $29.95 

Educational Sys Master $29.95 

Basic Sociology - cassette $29.95 

Effective Writing - cassette $29.95 

Biorhythms in BASIC - cassette $14.95 

Blackjack - cassette $14.95 





TsejHpi^iix 




ATARI" 410" PROGRAM RECORDER 




JOYSTICK 
CONTROLLERS 




PADDLE 
CONTROLLERS 



Hangman in BASIC - cassette $14.95 

Introduction to Programming in BASIC - cassette $19.95 

U.S. Goverment - cassette $29.95 

World History - casestte $29.95 

Business Communications - cassette $29.95 

Kingdom in BASIC ■ cassette $14.95 

Basic Algebra - cassette $29.95 

U.S. History - cassette $29.95 

3DTicTacToe $39.95 

Physics - cassette $29.95 

Chess - cassette $39.95 

Great Classics - cassette $29.95 

Principles of Economics - cassette $29.95 

Star Raiders $59.95 

Super Breakout $39.95 

Principles of Accounting - cassette $29.95 

Spelling - cassette $29.95 

Basic Psychology - cassette $29.95 

Editor Assembler $59.95 

Supervisory Skills - cassette $29.95 

Video Easel $39.95 



6 South St .Miltord. NH 03056 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-800-258-1790 
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APPLE II 

48K$1119 



CCS CALENDAR 
CLOCK MODULE $125 



KURTA 

GRAPHICS 

TABLE $659 



COMPUTERS 




APPLE II Computer, 16K RAM (#47-101) $999.00 

APPLE II PLUS Computer, 16K RAM (#47-201) $999.00 

APPLE II PLUS Computer, 32K RAM (#47-202) $1059.00 

APPLE II PLUS Computer, 48K RAM (#47-203) $1119.00 

PERIPHERALS 

SUP-R-MOD RF Modulator (#47-100) $34.95 

APPLE II Disk Controller w/Drlve (#47-004) $579.00 

APPLE II Disk Drive (#47-005) $439.00 

LOBO Disk Drive (#47-3101 ) $379.00 

MICROSOFT Z-80 SottCard (#47-80) $279.00 

MICROSOFT RAMCard (#47-81) $169.00 

Applesoft BASIC Language Card (#47-ASC) $195.00 

Integer BASIC Language Card (#47-IC) $195.00 

PASCAL Language Card (#47-PAS) $469.00 

MOUNTAIN COMPUTER Apple Clock (#47-MH003) $269.00 

MOUNTAIN COMPUTER ROMWrlter (#47-MH015) $169.00 

MOUNTAIN COMPUTER ROMPIus w/Fllter (#47-MH007) $1B9.00 

MOUNTAIN COMPUTER Music System (#47-MH022) $519.00 

MOUNTAIN COMPUTER A/D + D/A (#47-MH023) $329.00 

MOUNTAIN COMPUTER Expansion Chasis (#47-MH024) $609.00 

HARDSIDE Memory Upgrade KH (#5-1102) $59.00 

APPLE Sllentype Printer w/lnterface (#47-000) $569.00 

EPSON Parallel Printer Card and Cable (#47-9) $100.00 

CCS Arithmetic Processor (#47-7811C) $399.95 

CCS Asynchronous Serial Interface (#47-7710A) $159.95 

CCS Synchronous Serial Interface (#47-7712A) $159.95 

CCS GPIB (IEEE-488) Interface (#47-7490A) $300.00 

CCS Calendar/Clock Module (#47-7424A) $125.00 

LYNX Communications interface (#19-B5) $239.00 

KURTA APPLE Graphics Tablet (#47-1000) $659.00 

VERSAWRITER (#47-1100) $239.00 

ALF AM-II Music Synthesizer (#47-1200) $189.00 

LEEDEX 12" B/W Monitor (#5-100) $159.00 

NEC 12" Monochrome Monitor (#5-200) $239.00 

Color Video Receiver (#26-3010) $389.00 



6 Soutfi St , Miltord, NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1-800-25S-1790 
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CASSETTES 



The cassettes used for recording data are 

composed of two parts: the cassette shell and 

the tape itself. The shell used in our cassettes is 

of premium quality and is solidly held together 

with 5 screws. The tape used in our cassettes is 

of the same type used by some studios for 
making master recordings. Our tapes have non- 
magnetic leader to avoid the confusion caused 
by some brands of tapes (so-called ''leaderless" 
tapes) which have magnetic leader spliced to the 

rest of the tape, allowing data to drop at the 
splice point. 

The cassettes we offer here have been chosen 
for the highest quality components consistent 
with a practical cost level. 

Cassettes come packaged in boxes of 10. They 
are offered in 10 and 20 minutes lengths. 

C-10 $6.95 + $1 

C-20 $7.95 + $1 
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MasterCard 




[I1LSE 

lE LEADER IN QUALITY SOFTWARE 

The VOICE gives your Ap- 
ple the power of speech. 
The VOICE has a standard 
vocabulary which may be 
used to speak in an 
endless combination of 
phrases; or you can 
record your own 
vocabulary and make 
your Apple say anything 

you please. 
Each data disk stores up 
to 80 words or phrases 
that can be sorted for 
quick reference. Further- 
more, The VOICE allows 
you to speak from any 
BASIC program by using 
PRINT commands. 
48K Apple II or 
Apple II Plus 



$39.95 



«B^ 
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6 South St., Milford, N.H. 03055 

ORDER TOLL FREE: 1-800-258-1790 

(in NH call 673-5144) 
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TheSaftware Exchange 

fTlorket Bosket 

TO ORDER TOLL FREE 

1-800-258-1790 



SOFTWARE 
FOR THE 
TRS-80™ 



(In NH call 673-5144) 



GAMES 
Adventures on tape 

by Adventure International (Scott Adams) 

Level II. 16K $14,95 

Choose one! 

Adventureland: Magical beings, perils and puzzles! 

Fun House! Takes all your brains to get past the gate! 

Ghost Town What happens in the Saloon after Dark? 

Mission Impossible: Foil saboteur, save reactor! 

Pirate's Cove: Clue in a blood-soaked book! 

Pyramid of Doom: Watch out for the nomad! 

Strange Odyssey: Ruins of an alien culture? 

The Count: Protect your neck! Who lives here? 

Voodoo Castle: Remove Count Cristo's curse! 
Adventures on disk 
by Adventure International {Scott Adams) 

Ttiree-ArJventure combinations $39.95 

1) Adventureland, Mission Impossible, Pirate's Cove. 

2} Strange Odyssey, The Count, Voodoo Castle. 

Adventure Sampler 

by Adventure International (Scott Adams) 

Mini-version of Adventureland, serves as introduction. 

Level II, 16K $6,95 

Air Hlghl SImulitor 

subLOfilC 

Cassette $26.00 

Balrog Sampler 

by Adventure International 

32K, 2 Disks $35,00 

Blackjack Master 
Hayden 

Cassette $19,95 

Disk $24,95 

Datestones ot Ryn 

By Aulomaled Simulations 

Cassette $14,95 

Disk $19,95 

Hellfire Warrior (Apshai Sequel) 

by Automated Simulations 

Cassette $24,95 

Disk $29,95 

Journey to the Center of tlie Earth 

by Ramware - Greg Hassett 

Level II. 16K $7.95 

Lost Dutchman's Gold 

by Programmers Guild 

Level II. 16K $14.95 

Morloc's Tower 

by Automated Simulations 

Cassette $14.95 

Disk $19.95 

Original Adventure 

by fi^icrosoft, as played on PDP— 10 

Disk,32K $29.95 

Rescue at Rigel 

by Automated Simulations 

Cassette $19.95 

Disk $24.95 

Stone of Sisyphus 

by Adventure International 

Disk.32K $35.00 

Temple of Apshai 

by Automated Simulations 

Cassette $24.95 

Disk $29.95 

Zork 

Personal Software Disk $39.95 

AMUSEMENTS 

Air Raid 

by Small Systems Software 

Level I or II, 4K $9.95 

Amazin' Mazes 

by Ramware - Robert Wallace 

Level II, 16K $9.95 

Android Nim 

by Ramware - Leo Christopherson, with sound 

Level II, 16K $14,95 

Arcade Classics 

Personal Software 

Cassette, 4K $29.95 
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Attack Force 

Big Five Software 

Cassette $14.95 

Barricade 

by Small Systems Software 

rviachine Language $9.95 

Bee Wary 

by Ramware - Leo Christopherson, with sound 

Level II. 16K $14.95 

Challenge 

by Ramware - Richard Taylor, word game (with sound) 

Level II, 16K $9.95 

Concentration 

by Ramware ■ Randy Hawkins 

Cassette $7.95 

Dr. Chips 

by Adventure International 

Cassette $14.95 

Duel-N-Droids 

by Acorn Software (Leo Christopherson) 

Cassette $14.95 

Disk $20.95 

Galaxy Invasion 
by Big Five Software 

Level II, 16K $14,95 

Interactive Fiction 

by Adventure International (Robert Latere) 

Local Call for Death 

Disk $19,95 

Six Micro Stories 

Disk $14,95 

Two Heads ot the Coin 

Disk $19,95 

Invasion 

by Ramware - Chris Freund 

Level II, 16K $9,95 

Disk $14,95 

Kamikaze 

by Ramware - Russel Starkey 

Level 11, 16K $7,95 

Lite Two (with sound) 

by Ramware - Leo Christopherson. with sound 

Level II. 16K $14.95 

Olympic Decathlon 
by Microsoft 

Cassette $24.95 

Disk $24.95 

Pinball 

by Acorn Software 

Cassette $14.95 

Disk $20.95 

PR Dogfight 

by Ramware - David BohIke 

Level II. 16K $7.95 

Snake Eggs 

by Ramware - Leo Christopherson, with sound 

Level II, 16K $14.95 

Super Nova 

by Big Five Software 

Level II, 16K $14.96 

TRS-80 Opera Theatre 

by Ramware - Richard Taylor, Magnificent Sound 

Level II, 16K $9,95 

Tunnels of Fahad 

by Adventure International 

Cassette $9,95 

BOARD GAMES 

Bridge Challenger 

by Personal Software 

Level II, 16K $19,95 

Cribbage 

by Ramware - Roger W, Robltallle 

Level II, 16K $7.95 

Fastgammon 

by Quality Software 

Level II. 16K $19.95 

Mean Checkers Machine 
by Ramware - Lance Micklus 

Level II. 16K $9.95 

Disk $14.95 

Monty Plays Monopoly 

by Personal Software (old ROM only) 

Cassette $24.96 

Disk $27.95 
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HOURS: 

MONDAY - FRIDAY 

9 AM to 9 PM 

SATURDAY 

11 AM to 3 PM 

'EASTERN TIME 



Pentominoes 

by Ramware - James Garon 

Level II, 16K $7.96 

Sargon 2 (Chess) 

by Hayden (Dan & Kathe Spracklen) 

Level II, 16K $29.96 

Disk, 32K $34.95 

EDUCATIONAL GAMES 

Nine Games for Preschool Children 

by Ramware - George Blank 

Level II. 16K $9.96 

SIMULATIONS 

Airmail Pilot 

by Instant Software 

Cassette $7.95 

Air Traffic Controller 

by Sensational Software $9.95 

B-1 Bomber 

byAvalonHill $15.00 

Computer Bismarck 
by Strategic Simulations 

Cassette $49.95 

Disk $59.95 

End Zone II 

by Ramware - Roger W. Robitalile 

Level II, 16K $9.96 

Midway Campaign 

byAvalonHill $15.00 

North Atlantic Convoy 

by Avalon Hill $15 00 

Pigskin (Football) 
by Acorn Software 

Level II. 16K $9.95 

Planet Miners 

by Avalon Hill $15.00 

Pork Barrel 

by Ramware - George Blank 

Level II. 16K $9.96 

Santa Paravia 

by Instant Software 

Level II. 16K $7.96 

SPACE GAMES 
Orion Series 
Invasion of Orion 

by Automated Simulations 

Cassette $19,95 

Disk $24,95 

Starfleet Orion 

by Automated Simulations 

Cassette $19,95 

Disk $24,95 

Simutek i 

by Adventure International 

Disk $19,95 

Space Battles 
by Level IV 

Level II. 16K $14.95 

DiSk.32K $19.95 

Star Trek 3.5 

by Adventure International (Lance Micklus) 

Level II. 16K $14.95 

Time Trek 

by Personal Sottware 

Level II, 16K $19.95 

X-Wing Fighter II 

by Ramware - Chris Freund 

Level II, 16K $9.95 

STRATEGY GAMES 

Galactic Empire 

by Broderbund Software 

Level II. 16K $14.96 

Galactic Revolution 

by Broderbund Sottware 

Level II, 16K $14.95 



Galactic Trader 

by Broderbund Software 

Level II, 16K $14.95 

Galactic Empirs. Ravolution, Tradar 

by Broderbund Software 

Disl<.32K $39.95 

Kriagipiai II 

by Ramware - Ron Potl<in 

Level II. 16K $14.95 

Slag 

by Adventure International 

Cassette $14.95 

Taipan 

by Ramware - Arl Canfil 

Level II. 16K $9.95 

Tycoon 

by Ramware - David Bohllce 

Level II. 16K $7.95 

Up Periscope 

by Ramware - Ron Potkin 

Level H. I6K $14.95 

Warpath 

by Ramware - Ron Potltin 

Level II, 16K $14.95 

BUSINESS 

Accounts Payable, Accounts Receivable, Cbeck Register, General 
Ledger — Complete Set 

Micro Accounting Systems 

Disl<.32K $489.00 

Accounts Peyeble 

Micro Accounting Systems 

Disl(. 32K $159.00 

Accounts Receivable 
Micro Accounting Systems 

Disk. 32K $159.00 

Accounts Receivable (vrfth invoicing) 
by Ramware - Stepfien Hebbler 

3 disks. 2 manuals, 2 drives, lineprinter $69.95 

Basic Statistics 

by Ramware - Sieve Reisser 

Level II. 16K $9.95 

CCA Data Management System 

by Personal Software 

Ready for transfer to disk, with manual 

Tape $74.95 + $2 

CtvKk AegMw 

Micro Accounting Systems 

Disk,32K $89.00 

Column Calculator 

by David Gray (Ramware) 

16K, Disk $39.96 

Dynamk Data Base 

by Ramware - Ken Knecfit 
Manual & 3 Programs 

Disk,32K $39,95 

General Ledger 

Micro Accounting Systems 

Disk,32K $159.00 

HIstograph/Scattsrgram 
by Ramware - Gary Brescfiini 

Level II, 16K $9.95 

Infinite Business 
by Racet Computes 

16K Cassette $29.95 

Inventory 'S' 

by Ramware - Roger W. Robilaille 

Level II, 16K cassette $24,95 

32Kdisk, witliout invoicing $39,95 

48K disk with invoicing $59,95 

Invemory System 11.3 
by Ramware - M . Kelleher 

Improved version $79,95 

Mall Ust II 

by Ramware - SBSG 

32Kdisk $49,95 

Options Monitor 

by W,S, Kulleuer (Ramware) 

16K, Disk $29.95 

Payroll 

by Ramware • Stephen Hebbler 

32Kdisk $39.95 

Small Business Bookkeeping 

by Ramware - Roger W. Robilaille 
Level II, 16K. with journal 

Disk $36.95 

Cassette $31 ,95 

Without journal 

Disk $29,95 

Cassene $24,95 

Special Delivery wltli Extract 
by Quality Software Distributors 

Disk $125,00 

SuperScitpt 

by Acorn Software 

32K Disk $29,95 

SPECIAL PURPOSE 

Electronic Assistant 

by Ramware - John Adamson 

Level II, 16K $9,95 



Ham Radio 

by Ramware - M , Kelleher 

Level II, 16K $9,95 

32K disk, (advanced version) $24.95 

muMATH 

by MIcrosott 

32K Disk $74.95 + $3 

Stat Pal 

by Bruce Chalmer (Ramware) 

32-48K Disk $29,95 

WORD PROCESSOR 

Scrlpsit 

by Radio Shack 

32K Cassette $65,00 + $2 

32K Disk $95,00 + $2 

PERSONAL 

Amateur Astronomy 

by Ramware - George Hall 

Handbook 

Cassette $14,95 

Rnanclal Planner 

by Hayden 

Disk $74,95 +$2 

Home Financial Management 
by Ramware - M Kelleher 

Level II, 16K $9,95 

I Chlng/Blorhythms 

by Ramware - J,T, Philips 

Level II, 16K Cassette $9,95 

Interlude 

by Synergistic Sottware 

Cassette $16,95 

Disk $19.95 

Keyboard 8D 

by Ramware - John Adamson 

Level II. 16K $9.95 

Magic Paper Calculator 

by Ramware - Russell Starkey 

Level II, 16K $14,95 

Periodteal Cross Reference 
by Ramware - Dave Stambaugh 

Level II, t6K $14 95 

32Kdisk $19.95 

Personal Finance 

by Ramware - Lance Micklus 

Level II, 16K $9.95 

Roots 

by Ramware - Bill Sholar 

32Kdisk $19.95 

RPN Calculator 

by Ramware - Russell Starkey 

Level II, 16K $9,95 

Secrets of the Tarot/Cards of Fortune 
by Ramware - J,T, Philips 

together $9,95 

Soft Musk; 

by Computer Light & Sound 

16K Cassette $24.95 

Typing Tutor 

by 80 US 

Level II. 16K $19.95 

UTILITIES 

Editor Assembler + 

by Microsoft 

Level II, 16K Cassette $29.95 

Automated Disk Directory 
by Ramware - George Blank 

32K disk, (on Cassette) requires NEWOOS $14.95 

BLINK 

by Racet Computes 

32KDisk $25.00 

Boss 2.1 
by Soft Sector 

Level II, 16K Cassette $29,95 

GOMPROC Command Processor 
by Racet Computes 

Level II, 16K, Cassette $19,95 

Disk Sort/Merge 
by Racet Computes 

32K Cassette $75,00 

DOSORT 

by Racet Computes 

32K or 48K Cassette $34.95 

File Manager 80 

by Nepenthe 

32K disk $49.95 

LANGUAGE 

APL 80 3.0 

by Ramware - Phelps Gates 

Disk, 32K, Deluxe Version $39 95 

Level II, 16K, reduced features, no course or book $14,95 

APL 80 Book, separately $16,95 + $3 

Assembly Language Development System (A.L,D.S) 

by Microsoft 

32K, 2 Disks $95,00 + $2,50 



FORTRAN 

by Microsoft 

32K, 2 Disks $95.00 + $2.50 

FORTRAN plus Assembler $175.00 + $5 

Level III BASIC 

by Microsoft $49.95 

BOOKS 

APL • An Interactive Approach 

by Oilman and Rose (J. Wiley & Sons) $16.95 + $3 

Background Math for a Computer WoMd 

by R. Ashley (Wiley) $7.95 + $1 

BASIC Handbook 

BY Dr. David A, Lien (Compusoft) $14.95 + $1 

BASIC for Home Computers 

by Albrecht, Finkel, & Brown (Wiley) $7,95 + $1 

Calculations with BASIC 

by Sceibi Publications $8.95 + $1 

Chess i Computers 

by David Levy (CPS) $9.95 + $1 

Consumer's Guide to Personal Computing i Microcom- 
puters 
by S. Freiberger & P. Chew (Hayden) $8.95 + $1 

CP/M Summary Guide 

by Rainbow Associates $4,95 + $1 

Fortran Selt-Teechlng Guide 

Wiley & Sons $10,95 + $1 

Home Computers Can Miki Veu Rich 

by Joe Weisbecker (Hayden) $6,50 + $1 

Learning Level II 

by Dr, David A Lien (Compusoft) $15,95 + $1 

Learn Microcomputers 

by Sceibi Publications $14,95 + $1 

Microcomputer Potpourri 

by Sceibi Publications $3,95 + $1 

PASCAL An Introduction to Methodical Programming 

byW, Findlay«,D,A Watl(CSP) $12,95 + $1 

Pathways through the ROM 

by SoflSide Publications $19,95 + $1 

Personal Information Management System 

by Sceibi Publications $11,95 + $1 

Sargon Handbook 

by Dan & Kaihe Spracklen (Hayden) $15,95 + $1 

Secret Guide to Computers 

by Russ Walters (Sceibi Publications) $5,95 + $1 

Structured BASIC & Beyond 

byW.Amsbury(CSP) $10,95 + $1 

Take My Computer, Pleasel 

by Sceibi Publications $5 95 + $1 

Ten Easy Pieces 

by H Sagan & C. Meyer (Hayden) $7.95 + $1 

The Little Book of BASIC Style 

by John Nevision (Addison Wesley) $5.95 + $1 

TRS-80 Assembly Language Programming 

by William Barden Jr. (Radio Shack) $3.95 + $1 

TRS-80 BASIC 

by Albrecht. Inman, & Zamora (Wiley) $8.95 + $1 

TRS-80 Disk and Other Mysteries 

by Harvard Pennington (I J. G. Inc.) $22 95 + $1 

TRS-80 Interfacing 

by Jonathan Titus (Howard W. Sams Inc.) $8.95 + $1 

TRS-SO Interfacing II 

by Titus, Titus, and Larson (Howard W, Sams Inc) $10,95 + $1 
Understanding Microcomputers 

by Sceibi Publications $9.95 -i- $1 

Why Oe You Need a Personal Computer 

by Lance Leventhal (Wiley and Sons) $8.95 + $1 

Z-80 and 8080 Assembly Language Programming 

by Kathe Spracklen (Hayden) $7,95 + $1 

Z-80 Instruction Handbook 

by Sceibi Publications $5.95 + $1 

Z-BO Sottware Gourmet Guide & Cookbook 

by Sceibi Publications $15.95 + $1 

SUPPLIES 

Cassettes: 

C-10 $6,95 -I- $1 

C-20 $7,95 + $1 

Diskettes: 
Dysan (premium quality) 

Box of 5 $29,95 + $1 

BASF 

Box ol 10 $34.95 + $2 

Case oil 00 $299.00 -i- $3 

Scotch 

Box ol 10 $39.95 -f $2 

Diskette Storage Box $5.00 + $1 

Floppy Armor* 

Protective envelopes for shipping floppy disks 

5-pack $4.95 + $1 

Floppy Disk Refills $7.95 

Floppy Disk Savers $14.95 

SoftSide Vinyl Binders $4.95 -i- $1 

Taps Recorder Allignment Kit $9 95 -i^ $1 

File Utility 

by Ramware - 

32K Disk $29.95 
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Roppy Disk Diagnostic 

by Ramware - Dave Stambaugh 

Disk with manual 16K Machine Language $24.95 

General SUBFAC 

by Racel Computes 

16K - 48K Cassette $24.95 

Grean Scraan 

Quality Software Distributors 

$19.95 

Inllnlte BASIC + D 

15K Cassette $49.95 

KVP 

by Ramware ■ Lance Micklus 

Cassette «232 $14.95 

Disk $19.95 

Level I In Laval II 

by Apparat 

Level II, 16K $14.95 

Micro Text Editor 

by Ramware - Don Coons 

Levelll.4Kor16K $9 95 

NEWDOS 

by Apparat $49 95 



NEWDOS + 

by Apparat $99.95 

NEWDOS 80 

by Apparat $149.95 

Remodel & Proload 
by Racet Computes 
16K-48K Cassette $34.95 

RSM2 

by Small Systems Software 

Level II, 16K $26.95 

RSM2D 

by Small Systems Software 

Disk for 1 6-48K on one tape $29.95 

Spool 

by Ramware - Robert T. Hepp 

Will print on ASCII file to a parallel line printer at ttie same 

time you are using your computer for another program. For 

32K disk systems only. Will NOT work with NEWDOS (2,3 

or VTOS 3,0 okay). 

Disk $24,95 

STAD 

by Ramware - Paul van der Eijk 

Trace and Debug monitor for tape and disk systems 

16K,32K,and48Kononetape $24,95 



ST80 Smart Terminal 

by Ramware - Lance Micklus 

Level II, 16K $49 95 

ST80D Smarter Terminal 

by Ramware - Lance Micklus 

Disk $79,95 

ST80III $150 00 

ST80-UC Dedicated to THE SOURCE 

by Ramware - Lance Micklus 

Level II, 16K $24 95 

System Copy 

by Ramware ■ Kalman Bergen 

Level II, 16K $9 95 

T-Slioit 

by Web Associates 

Level II, 16K $9 96 

Tiny Comp: A BASIC Computer in BASIC 

by Ramware - David Bohike 

Cassette $19 95 

Disk $24 95 

Z80 Zap Command 

by Quality Software 

Disk $29 95 




The 
PppleStond 



TO ORDER 

TOLL FREE (orders only) 

1-800-258-1790 



(In NH call 673-5144) 



KEY 

/ - Integer BASIC 

M - Machine Language 

(Apple II or Apple II*) 
A ' Applesoft 
ROM - Apple II P/us or Applesoft card only 



Your Apple 11* software market from The Software Exchange 



ADVENTURELAND 

-Adventure International 

Caiielle/24K/M $14,95 

ADVENTURE COMBINATION »1 

Adventure International 

Adventureland. Pirate's Cove, Missions Impossible. 

Diik/24K/M $39,95 

ADVENTURE COMBINATION «2 

Adventure International 

Voodoo Castle, The Count, Strange Odyssey 

Disk/24K/M S39.95 

ADVENTURE COMBINATION «3 
fun House, Pyrarrtid, Ghost Town 
Disk/24K/M $39.95 

ADVENTURE SAMPLER 

Adventure International 

Cassette/24K/M $6,95 

AIR FLIGHT SIMULATOR 

subLOCIC 

Cassette $2500 

Disk $33.50 

AIR TRAFFIC CONTROLLER 

Sensational Software 

Cassette/16K/M $9,95 

AMBUSH 

Strategic 

Disk 4SK/A ROM $59.95 

ANDROID NIM 

Ramware 

Disk/24K/A ROM $77.95 

ANTI BALLISTIC MISSILE 

Disk $24,95 

APPEN I TEXT EDITOR 

Muse 

Casselte/T6>C/l $17,95 

APPILOT II 

Muse 

Disk/4SK/M $9995 

APPLE 21 

Softape 

Cassette/24K/I $1595 

APPlEllSrNER 

Softape 

Cassette/16K/I $19,95 



APPLETALKER 

Softape 

Cassette/16K/I $15,95 

ASTEROIDS IN SPACE 

Quality Software 

Disk/32K/M $19,95 

B-1 BOMBER 

Avalon Hill 

Cassette/16K/I $1500 

BASEBALL 
Muse 

Cassette/1 6K/ A ROM $14,95 

BEST OF BISHOP 

Softape 

Cassette/16K/I $3995 

BEST OF MUSE 

Muse 

Disk/16K/I $39.95 

BISMARCK 

Strategic 

Disk 4SK/A ROM $59,95 

BRIDGE CHALLENGER 

Personal Software 

Casselte/16K/M $19.95 

CCA DATA BASE MANAGER 

(Works in conjunction with Visicalc) 
Personal Software 

Disk/32K/A $9995 + $2 

COMPU-READ 

£du-ware 

Disk/48K/A $24.95 

COUNT ADVENTURE 

Adventure International 

Cassette/24K/M $14.95 

DATA FACTORY 

Micro-tab 

Disk/4SK/A $150.00 

DATE STONES OF RYN 

Automated Simulations 

Cassette 32K/A ROM/4SK/A $14. 95 

Disk/4SK/A ROM $19.95 

DESK TOP PLAN 

Personal Software 

Disk/32K/M $99.95 

DOGFIGHT 

Micro Lab 

Disk/48K/M $2995 



DR. MEMORY 

Muse 

Disk/32K/I $49.95 

DUNGEON CAMPAIGN 

Synergistic 

Casselte/76K// $14.95 

Disk/32K/I $1750 

EDITOR ASSEMBLER 

Hayden 

Disk $39 95 

ELEORIC CRAYON 

Muse 

Cassette/16X/M $1795 

ENGINEERING MATH TAPE I 

Hayden 

Casselte/24K A/16K A ROM $1495 

ESCAPE 

Muse 

Cassetle/16/</l $12.95 

FASTGAMMON 
Quality Software 
Cassetle/UK/M $1995 

FORTE 

Softape 

Cassette/UK/M $19 95 

FORTH II 

Softape 

Disk $49.95 

GALACTIC EMPIRE 

Broderbund Software 

Disk/48K/A $24.95 

GALACTIC REVOLUTION 

Broderbund Software 

Disk/48K/A S24 95 

GALACTIC TRADER 

Broderbund Software 

Disk/48K/A $24.95 

GENERAL MATH TAPE I 

Hayden 

Casselte/24K A/UK A ROM SJ4 93 

GHOST TOWN ADVENTURE 

Adventure International 

Cassette/24K/M JI4.95 

GLOBAL WAR 

Muse 

Casserie/321C/A ROM $77 95 

Disk/48K/A ROM $24 95 
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HaiFIRE WARRIOR 

Automated Simulations 
Disk 



. J29.9S 



HIGHER GRAPHICS 

Synergistic Software 

Disk/32K/I $24.95 

HIGHER TEXT 

Synergistic Software 

Disk/24K/M 135.00 

HI-RES FOOTBALL 

On-iine Systems 

Disk/4SK/M 



. $39.95 



HI-RES MYSTERY HOUSE 

On line Systems 

Disk/4SK/M $24.95 

INTERLUDE 

Cassette 16K/I $16.95 

Disk/32K/I $79.95 

INVASION OF ORION 

Automated Simulations 

Cassette/3 K/A ROM/48KA J79.9S 

Disk 48K/A ROM $24.95 

LOST DUTCHMAN'S GOLD 

Programmers Guild 

Cassette/24K/A ROM $14.95 

MAGIC PAINT BRUSH 

MP Software 

Disk 32K/A ROM $29.95 



MAILING LIST DATABASE 

Synergistic Software 
Disk/4SK/A 

MAZE GAME 

Muse 

Cassette/r6*;// 



. $34.50 



.$72.95 



MICROSOFT ADVENTURE 

Microsoft 

Disk 32IC/M $29. 95 

MIDWAY CAMPAIGN 

Avalon Hill 

Cassette/1 6K/ 1 $75.00 

MISSION IMPOSSIBLE 
ADVENTURE 

Adventure International 

Cassette/24K/M $74.95 



MODIFIABLE DATABASE 

Synergistic Software 
Disk/4«K/A ROM 



. $79.50 



MONTY PLAYS MONOPOLY 

Ritam 

Cassette/16K/M $24.95 

Disk/32K/M $27.95 

MORLOC'S TOWER 

Automated Simulations 

Cassetle/32K/A ROM/4aK A $74.95 

Disk/48K/A ROM $79.95 

MUSIC BOX 

Muse 

Cassette/16K/M $72.95 



MYSTERY FUN HOUSE ADVENTURE 

Adventure International 
Cassette/24K/M 



. $7495 



NORTH ATLANTIC CONVOY RAIDERS 

Avalon Hill 

Cassette/1 6K/ 1 $75.00 

NUKE WAR 
Avalon Hill 
Cassette/16K/I $75.00 



ODYSSEY: THE COMPLEAT ADVENTURE 

Synergistic Software 

Disk/4SK/I $29.95 

PIE, Standard veision 

Hayden 

Disk/48K $729.95 



PIE, Super version 

Hayden 

Dlsk/4SK 



PIE, Videx version 

Hayden 

Disk/48K 



. $729.95 



PIRATE'S COVE ADVENTURE 

Adventure International 
Cassette/24K/M 

PLANET MINERS 

Avalon HiW 

Cassette/1 6K/I 



. $7495 



. $75.00 



. $9.95 



PORK BARREL 

Ramware 

cassette/24K/A 

PROGRAM LINE EDITOR 

Synergistic Software 

Disk/24K/M $40.00 

PYRAMID OF DOOM ADVENTURE 

Adventure International 

Cassette/24/C/M $7495 

RESCUE AT RIGEL 

Automated Simulations 

Cassette/32K A ROM/4SK A $79.95 

Disk 4SK/A ROM $2495 

REVERSAL 

Hayden 

Cassette $29.95 

Disk $34.95 

SARGON II 
Hayden 

Ca5sette/24k:/IM $29.95 

Disk/24K/M $3495 

SCREEN MACHINE 

Softape 

Cassette $79.95 

Disk 

SPACE WAR/SUPER INVASION 

Sensational Software 

Disk 



. $29.95 



.$29,95 



STARFLEET OF ORION 

Automated Simulations 

Cassette/16K/I $79. 95 

Disk 32K/I $24.95 

STIMULATING SIMULATIONS 

Hayden 

$5.50 + $1 

STRANGE ODYSSEY ADVENTURE 

Adventure International 

Cassetle/24fC/M $74.95 

SUPER APPLE BASIC 

Hayden 

Disk $39.95 

SUPER INVASION 

Sensational Software 

Cassette/32K/M $79.95 

SUPER TEXT II 

Muse 

Disk/48K/M $750.00 



TEMPLE OF APSHAI 

Automated Simulations 

Disk 48K/A ROM $29.95 

TEXT SITOR 

Periph Unl. 

Disk/48K/A ROM $6495 

THE WIZARD AND THE PRINCESS 
On Line Systems 

Disk/48K/M $32.95 

THREE-D 
MP Software 

Disk/48K/A ROM $29.95 

THREE MILE ISLAND 
Muse 

Disk/48K/I $39.95 

U-DRAW I 
Muse 

Cassette/16K/M $7795 

U-DRAW II 

Muse 

Disk/32K/M $39.95 

UNCLE SAM'S JIGSAW 

Muse 

Cassette/32K/A ROM $72.95 

VISICALC 
Personal Software 

Disk/32K/M , $749.95 ■•• $2 

VOICE 

Muse 

Disk/48K/M $39.95 

VOODOO CASTLE ADVENTURE 

Adventure International 

Cassette/24K/M $74 95 

WILDERNESS CAMPAIGN 

Synergistic Software 

Cassette/ 48K/ 1 $7750 

Disk/48K/I $79.95 

WILDERNESS & DUNGEON 
CAMPAIGNS 

Synergistic Software 

Disk/48K/I $32.50 

ZORK 

Personal Software 

Disk $39.95 

BOOKS 

BASIC HANDBOOK 

by David Lien $74. 95 + $7 

GOURMET GUIDE & COOK BOOK 

Sceibi 

$72. 95 + $7 

INTRODUCTION TO LOW 
RESOLUTIONS 

Sceibi 

$9.95 + $1 

LITTLE BOOK OF BASIC STYLE 

by lohn Nevison .$5.95 + $7 

SECRET GUIDE TO COMPUTERS 

Sceibi $5.95 + $7 



• No sales tax. 

• All C.O.D. or special 
delivery orders are a minimum 
of $5.00 for special handling. 
P.O. Box 68, Milford, NH 03055 
TOLL-FREE (■" NH call 673-5144) 
1-800-258-1790 



? ? MOVING ? ? 

TO CORRECT OR CHANGE YOUR 

ADDRESS ATTACH LABEL FROM YOUR 

LATEST COPY HERE AND PRINT NEW 

ADDRESS BELOW: 



For more detailed descriptions of 
our software and supplies send 
for the TSE Catalogue - its FREE! 
Write or call today for your copy. 

All prices are subject to change 
without notice. The Software 
Exchange Is not responsible for 
typographical errors, including 
prices. 



Name 

Address 

City State Zip --- 

MAIL TO: SoftSide Publications, P.O. Box 68, IMilford, NH 03055 
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TRS-80 

Interfacing 

The most useful guides to 
S-80 interfacing 
TRS-80 Interfacing 
by J. Titus '(Howard W. Sams, Inc.) 
$8.95 + $1 
TRS-80 Interfacing 11 
by Titus, Titus, and Larson 
(Howard W. Sams, Inc.) $10.95 + $1 



T5€:HPiTOSID€ 

6 South St .Milford, NH 03055 (603)673-5144 
TOLL FREE OUT-OF-STATE 1.800-258-1790 
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The Software Exchange Order Form 



DESCRIPTION 



MEMORY TYPE 



PRICE 



SPECIFY: TRS-80, APPLE, 
ATARI or PET. Do not use for 
hardware. 



Check 
Money Order 



CHARGE ACCOUNT NUMBER 




ADD handling charges 

(Foreign order* mtnlmum $5.00 handling) 

Additional charges 
TOTAL 



$1.00 



Signature.. 
Name 



.Exp. Date. 



.Inter. No.. 



Address. 



City. 



.State. 



-Zip. 



MAIL TO: The Software Exchange 
6 South St. 
Mllford, NH 03055 



Special prices In affect 60 days from mailing 



or, CALL TOLL FREE 
for Orders Only 
1-800-258-1790 
(In NH call 673-5144) 



Level II software available on disk for a $5.00 (per order) medium ctiarge. This extra fee Is for any number of programs transferred to disk from taps 
when you order. It the order exceeds the capacity of a single disk, ws absorb the extra cost. 

Be sure to Include handling charge and any additional charges when figuring your total. All in house orders shipped within 4 working days. 

All price* are subject to change without notice. We are not responsible lor typographical errors, Including Incorrect prices. 

ALL SOFTWARE GUARANTEED TO LOAD AND RUN. If you experience difficulties, simply return the tape or disk properly protected for tree 
replacement. Send to the attention of Bette Keenan, Customer Service Representative: pleass enclose a brief note and your name and mailing 
address with the software. 

ALL SOFTWARE SOLD ON AN AS-IS BASIS WITHOUT WARRANTY. TSE assumes no liability for loss or damage caused or alleged to be caused 
directly or Indirectly by equipment or products sold or exchanged by them or their distributors. Including but not limited to any Interruption In 
eervlce, loss of business or anticipatory profits or consequential damages resulting from use or operation of such equipment or software. 
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At HAYDEN,The Best Has Gotten Better. 

Sargon, the program that came in first in the Creative Computing 
Microcomputer Chess Tournament, has become Sargon II. The game 
has been vastly improved and now has a faster response time. A new/ 
Level has been incorporated for beginners. The board is easier to 
pre-set and there is now a Hint mode that provides suggestions from 
the computer. Sargon II took on the maxi-computers In the West 
Coast tournament and finished in the money! Shows more thinking 
power than you ever expected. 
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Sargon II 16K Level II Cassette $29.95 (TRS-80) 

Sargon II 24K Cassette Machine Language $29.95 (Apple) 

Sargon II 32K Disk $34.95 (TRS-80) 

Sargon II 48K Disk Machine Language $34.95 (Apple) 
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TOLL FREE OUT-OF-STATE 1-800-258-1790 
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Unlock the hidden power 
of your computer for fast and 
easy programming! Use ROM 
routines in your BASIC 
and Assembly Language 
programs! All you need to 



know IS m... 



ALL 

ONLY 

$19.95 

plut $1 shipping 





INCLUDES: 

SUPERMAP 

From Fuller Software ($18.95) 

TRS-80 

DISASSEMBLED 

HANDBOOK 

by Robert Richardson ($10.00) 

HEX MEM 

by John Phillipp 
Monitor written in BASIC 

Z-80 
DISASSEMBLER 

by George Blanl< 



ORDER TOLL-FREE 

(In NH call 673-5144) 



1-800-258-1790 

TheSaHwate Exchange 



A SoftSide Publication 



Guide to Level II BASIC 
and DOS Source Code 

Description of the contents of the Level II BASIC ROM by 
memory locations, by function, and in lesson format. Includes 
several BASIC and Assembly Language programs in listing 
format to examine and use ROM routines. 



